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EDITORIAL 


Chers amis, 
Certains parmi vous ont sans doute été surpris de recevoir le numéro 12 de PPC-T 


(faisant suite au numéro 15 et dernier de MICRO-REVUE). En fait l'a situation de notre club est 
très bonne financièrement, ce qui fait que nous avons décidé d'expédier les numéros actuels du 
journal aux 309 adhérents qui étaient à jour lors de la mise en sommeil (attention, ces numéros 
sont tirés au plus juste et il n'y a pas de solde destiné à La vente -115 sont donc précieux-). 
Par contre le nombre de demandes de renseignements que nous recevons est trop faible 
pour que nous puissions envisager un redémarrage. Par conséquent nous allons produire en sus du 
présent numéro 13 un numéro 14 qui sera le dernier et qui reprendra TOUS les articles que nous 
avons en stock. Il sera sans doute assez gros et devrait paraître d'ici à cet été, sans que je 


puisse préciser la date. 
Pour (me) simplifier les opérations, le club a vendu la totalité de son stock aux Edi- 


tions du Cagire. Vous trouverez dans ces pages la liste des produits disponibles AVEC UNE FORTE 
REMISE. Les photocopies sont en très petit nombre et ne seront pas retirées sans justificatif 
particulier, certains livres et numéros de MICRO-REVUE n'existent qu'en 19 ou 15 exemplaires, s1 
vous les voulez il faut faire vite. En tout état de cause rien ne sera plus disponible après le 
31 Décembre de cette année. 

Le bureau s'est interrogé sur ce que nous pouvons vous proposer en remplacement de no- 
tre club. Notre avis est qu'il faut resserrer les rangs autour de ce qui continue à fonctionner. 
En particulier le club de Paris. Ce club se réunit tous les premiers Samedi de chaque mois (sauf 
pendant les vacances scolaires) au Centre de Jeunesse et de Loisirs Jean Verdier, 11 rue de 
Lancry, 75010 Paris, au deuxième étage salle 215 entre 16h et 19h. Son adresse est 56 rue JJ 
Rousseau, 75001 Paris, la cotisation de 300F (250 pour les Etudiants). Vous pouvez aussi vous 
adresser à Jean-Jacques Dhénin, BCMW 5 bis rue Nicolas Houël 75005 Paris (tel (1) 43 36 12 05. 
Ne dérangez Jean-Jacques qu'en dernier recours, il travaille... 

PPC-Paris a certes surtout publié sur le HP-71, mais à priori il n'a jamais refusé des 
articles sur la HP-41, faut-il encore les lui proposer. 

Mais pour ceux que l'anglais ne rebute pas trop, le club anglais fait un travail 
remarquable, sur toutes les machines y compris la HP-28, après le renoncement de Richard Nelson 
et le niveau nul atteint par PPC USA, c'est un bon choix. Les contributions (articles...) sont à 
envoyer à Mark Cracknell, 6 Stratton Mews, Off South St, Leighton Buzzard, Beds. LU7 8NT, le se- 
crétaire est Wlodek Mier-Jedrzejowicz, 42 Heathfield Road, London, W3 8EJ et le trésorier John 
Cole, Geggs Lodge, Hempton Rd, Deddington, Oxford OX5 4QG. La cotisation est annuelle du premier 
Janvier au 31 Décembre, avec des cotisations partielles en cours d'année : f21 pour l'année 
(Janvier), £15.50 pour Avril-Décembre, £19,50 pour dJuillet-Décembre, £5.59 pour Octobre- 
Décembre. 

J'ai encore besoin de votre aide pour deux décisions à prendre. Nous avons ici au club 
les originaux de beaucoup de documentation. Une partie m'intéresse et je la conserverai, le res- 
te m'encombre plus qu'autre chose. S'il y a des volontaires parmi vous j'aimerai qu'ils se 
manifestent. Je leur enverrai la dite documentation (cet été) et en échange je communiquerai 
leur adresses à ceux qui ont une bonne raison d'en désirer la consultation. Les autres clubs ont 
déjà tout ce qu'il faut (mais à ma connaissance PPC-Paris ne fait pas de photocopies pour ceux 
qui n'habitent pas la capitale). Il est souhaitable de bien connaître sa machine (HP-41, HP-75, 
HP-71) et de disposer d'une photocopieuse (ce service n'a pas à être gratuit). 

Le deuxième problème est plutôt agréable. Nous sommes assurés de terminer les opéra- 
tions du club avec un fort bénéfice. Nous voulons donc répartir ce bénéfice au sein du club. Il 
n'y en aura pas assez pour que nous puissions envisager un remboursement partiel de cotisation, 


aussi pensons nous acheter un lot de calculatrices et l'attribuer par tirage au sort. Préférez- 
vous voir distribuées une centaine de HP-11C, une cinquantaine de HP-15 où une vingtaine de HP- 
28 ? Personnellement je penche vers la dernière solution, mais j'attends vos avis. 


À bientôt, 
Jean-Daniel Dodin 
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ADRESSE : 
PPC-T, PPC-T, 77 rue du Cagire 31199 Toulouse France. 


EDITION : 


Edité par le club de Programmation Personnelle sur Calculatrice de Tou- 
louse (PPC-T). 


REDACTION-ADMINISTRATION : 

Rédacteur en chef, directeur de la publication : Jean-Daniel Dodin 
secrétaire de rédaction : Eric Sergent 

administration : Jean-François Sibille. 


VENTE ET DISTRIBUTION : 
Réservé aux membres de PPC-T ayant cotisé pour cela. 
PARUTION 
Irrégulière 
TARIFS (franco de port) : 
Prix de vente au numéro : 30F (40F par avion). 


SOUMISSION D'ARTICLES : 

Tous les membres du club sont invités à fournir des articles pour PPC-T. 
L'original à nous faire parvenir doit être tapé à la machine avec un ruban bien 
noir, recto seul, simple interligne, avec une largeur maximale de 15 cm. Un en- 
voi sur disquette IBM simple face, sur cassette HP82161A est recommandé. Les 
articles manuscrits sont acceptés s'ils sont calligraphiés sur papier blanc qua- 
drillé 5x5, sans sauter de ligne, recto seul, au stylo noir. Nous faire parvenir 
cartes ou cassettes (qui vous seront remplacés) pour les programmes, ainsi qu'un 
listing. Cet original sera utilisé tel que pour la publication, soignez-le ! 
Ceux qui prévoient à l'avance d'écrire des articles sont invités à nous demander 
un “Kit Auteur" qui leur donnera les modèles et toutes les instructions 
nécessaires. 

Les articles qui nous sont fournis sont certifiés originaux par leurs 
auteurs. Ni la revue, ni le club ni les auteurs ne sont responsables de l'usage 
qui sera fait des programmes qui sont uniquement fournis à titre documentaire, 
les utilisateurs sont seuls responsables de l'adaptation des programmes à leur 
propre usage. Ceci est spécialement vrai des programmes professionnels. Le fait, 
pour les auteurs, de nous envoyer un article ou un programme vaut autorisation 
de publication dans MICRO-REVUE ou dans toute autre publication du club, sans 
qu'aucune rémunération soit due à l'auteur de ce fait. 


(c) 1985 REPRODUCTION INTERDITE 

Les droits de reproduction des programmes et articles de PPC-T restent 
la propriété des auteurs et de la revue. En dérogation aux mentions ci-dessus, 
la reproduction des programmes est autorisée pour l'usage personnel des 
lecteurs, à l'exclusion de toute reproduction commerciale. 

Les auteurs délèguent à la revue le droit d'autoriser la reproduction 
des articles et programmes dans d'autres revues à caractère non commercial. 





PPC-T No13 Mars-Avril 1987 Page 4 


HP-41 


PROGRAMMES 








STAT & PROBA 


JEGOUZO Christian NANTES, le £6 OCTORRE 1986 
33, rue ce i’aauitaine 
44800 St HERELAIN 


DOSSIER STATISTIQUES et PROBABILITES 
Les SG programmes ‘que Je vous propose, devraient vous 
permettre Ge vérifier les calcuis de base en statistique et en 
prababilité. J'ai essayé de garder la même présentation dans les 
3 orovrammes. 


STAT1 : Méthode classique des moindres carrés 
regs pgm : ‘4 actets 
reus dormées : 6 


Prenons l'exemple suivant : 

Pays dermeurs Produit matinal X F 
U.S.A 

Canada 

R.F.A 19300 
France 1800 
Royaume-Uni 

Pays-Has 

Italie 

Japem 


de totale Y 


Hein ri 
cu uour 


U Q 


Imitviaiisation du pom : XEG STATI ——--) DATAA 
(introduire les caunles X,Y avec £+ ex: 25/3300 E+) 


A mayernes X et Ÿ _ 
MEAN 1750 (XY) 13 dome X=1750 et 


variarces de X et Y 
SDEV 5 500 (X()Y) 72,25 


cuvariance 
SDEV XY 4500 (XC)Y) 4500 


darsite de régression de YŸ par rapport à X 
Y=O,O1X-1,E85 = aX+b 
(a en X et b er Ÿ oaur pius de précision) 


droite de régression de X par rapport à Y 

Y=EE, E8X+940,31 

(er fait X=6€,28Y+940,31 car marque de place paur que le 
poam tierme sur 1 carte) 


coefficient de corrélation 
R=O, 71 


Y=f (X) 
X 7 1500 R/S Y= 10,96€ 


g (Y) 
? 


X= 
Y £O R/S X=2609, 44 
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STATE : Variable à € dimensio 


res pan #19 ccotets 
rens cunnées 


3 


Prenons l’exemoule Suivant 
Ciasse Xi éffectif 


iQ 


E 


XEG ST 
Ciasse 


Initialisation Qu pom 
(introduire les cuupies 
A iritialiisation gonviées 
XAN ? 1 Enter/ 
X/N ? Enter/ 
XAN ? Enter/ 


ces 
10 
e 20 
3 30 
moyenne X 

MEAN & E7E7 

variance 

SDEV 0, 56E0 

l'écart type est cbtern er 
variance. ( écart type = © 


variance corrigée de SHEPR 
SHEPPARD 
X'SizE ? 
0, 4787 


S 


E RY 


médiane 

MEDIAN 

N INF #7, 7 10 
N SUP &7, ? 30 
X SIZE ? 1 R/S 
VAL X ? 1 R/S 
1,88 


R/S 
R/S 


(eff 
(eff 
(tai 
(val 


S 
S 
= 
S 


classe modale (celle dent 
MODAL 


N= 5, 00 


Prenons maintenant un exemple 
Classe X1 Effectif 

LEO, 251 1817 

L25,.301 1333 

C30, 351 801 

L35, 40] 744 

L40, 451 797 

C45, 50] BE 

[50,551 786; 

CSS, 601 1032 


ÊË 


Initiaalisation Gi pm XEU ST 
(introduire ies cuuples Centre 
A initialisataion 
XAN ? 
X/N 7? 


des dormées 
2,5 Enter/ 1817 R/S 
7,5 Enter/ 1 R/S 


o 333 
mayernme x 
MEAN 57,5068 


variance 

SDEV 154, 1897 
l'écart type est 
variance. ( écart type = 


abteru er 
1 


PPC-T No13 


Mars-Avril 


ms 


ffectif cunuié 
Lo 


) 


XAN 
Ours 


AE -——) 
Asfrectif 


prenant la racine carrée de la 


,75) 
ARD 


(à utiliser p2 ciasses 


d’'intervalles) 


des 





r 


ectif cumulé inférieur) 
ectif supérieur cumulé) 
lle de la classe) 


eur ae Xi (= 27,5) 


l'effectif est le plus élevé) 


plus 
mul 
1817 
3150 
3951 
4695 
549€ 
6 
7101 
8133 


significatif 
Centre des ciasses 


31s 





C1 C1 CN CN CN CA CN € 


—-—-) XAN ? 


Ciasse,Effectif puis R/S) 


ATE 
des 


ete... 


prenant la racine carrée de la 


E, 4173) 
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C 3 variance Çorricée de SrEReARD Va Utiliser our Q 
SHEPBAKD ti 


es Ciasses 





INTErVaLIES ) 









15, 1065 







D : médiane 
MEDIAN 
N INF 4066,5 7 






(effectif cumulé inférieur) 
N SUP 4066,5 7 (effectif subérieur cumulé) 
X SIZE ? R/5 (taille de la classe 
VAL X ? 55 R/S (valeur Ge X1 <= 4066,5) 
35, 78 














classe mudale (celle dimt l'effectif est le plus éievé) 
MODAL 
N= 1817.00 







PROEA : probabilité d'une variable aléatoire 
regs pgm : 335 octets 
reqgs données : Exnbre de couples de données 






Prenons l'exemple suivant : (SIZE 012) 


X1 3 4 S E: 7 9 
P(X:X1) 1/10 &/19 3/10 Æ/10 1/10 1710 












Initialisation du pom : XEG PROBA =) XAp 9 
(introduire les couples Variable, Prebabilité puis R/S) 












A 





iritialisation des dormées 

X/P ? 5 Enter 0,1 R/S 

X/P 79 4 Enter/A O,£ R/S 

XAP ? 5 Enter/ 0,3 R/5 etc... 





' E : espérance mathématique E(X)= EPixa 
EX) 
5, 40 
C : variance 
SDEV &,64 
l'écart type est cbtenu en prenant la racine carrée de la 
variance. ( écart type = 1,68) 











D : mament d'ordre k (l'espérance matnématique est le moment 
K ? & R/S d'crdre 1) 
H=E 
31, 80 








E : variable centrée réduite T 
CENTER T 
X ? 5 R/S -0,ES5 R/S 
X ? 5,4 R/S 0 








F 3 loi binamiale 
Si la prababilité d'avair 1 succés est P2G 1 aiors la proba- 
bilité d'avoir 5 succés (S=5) er 10 épreuves (N=10) est 0,0574. 
BINOMIAL 
NAP ? 10 Enter/ 0,1 R/S 
S ? 35 R/S 0,0574 











G 3 loi de Puisson de paramétre & 

POISSON 

a=E=V ? 3 R/S (rapoelle que pour la 

S 7 5 R/S az ECX) = VOX) 

P X=5 

0,1008 R/S 

S ? O R/S (orcbabilité d'aucun succés) 

P X=0 

O, 0498 

Je termine cet article en dormant le bünjaour aux membres de 
la Société d'Astronamie de Nantes qui € npte parmi adhérents 
quelques HPistes cenfirmés. 






lui de Psisson 
ibre ne succés ) 













ces 













JéGOUZQO Caristian 
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PRP “PROER" 
Ai+LBL “PRORA* 
féeLBL A 
CLRG .999 
G5eLBL 84 


"xtP 2 PROMPT KO 
STO IND 2 KEY [SG 2 
STG INR 2 I5C2 RD 
RIN GTO &4 


17418L E 
Ex)" AVIEW 


2BLBL 05. 
1 %E0 68 F57 D FIN 
CLD STOP 


27eLBL C 
“SIEY* ANIEN 


3ReLBL RE 

2 KEG@A STO] ! 
KEG @@ Kt2 RL I - 
CHS F5? 48 RTN CLN 
STOP 


44eLBl D 

K 27 PROMPT [NT “K=" 
KEQ 28 KEA 48 LD 
STOP 


53eL8L E 
"CENTER T° AYVIEN SF 84 
XEQ 86 SORT STN ] 
KEQ 85 RCL 1 x 
CF BB "x ?* 


65+LBL 42 
PROMPT RELY - RL Z 
/ STOP RDN GT @2 


65#LBL 92 
PROMPT RCL Ÿ - REL 2 
4 STOP RIN GTA 82 


T4e.BL 84 
510  .999 ST0T 8 


73eLBL 81 

RCL INDE RELS YTK 
156 C RL IND [ X=4? 
G10 43 + + ISGL 
GT 8 


9LeLBL 03 
RDN RDH RITN 


95eLBL 28 
RCL d FIX A RREL Y 
STO d AVIEM RDH RTN 


183eL8L F 
“BINOMIAL" AYIEN PSE 
-HtP 2  PROMPT 


189+LBL 14 
“6 27 PROMPT *P K=° 
XE@ 28 STOT RON 

RCL KO Rt STOC Ÿtx 
XOY SIO 1 1 - CHS 
Rt STO\ RELT - 


PPC-T No13 


ST KO 
FACT 4 RL FACT * 
ROLE FAT 4 RIL 
REL 1 RCLZ ELR STOP 
RON GTO A 





"POISSON" AWIEN PSE 
FROMPT 





5 PROMPT “PF 2x2" 
XEQ 24 RCL T STOC 
CHS Etx REL Ÿ FACT 
RIN YŸtX Rt * CL 
STOP RÊL [ GTA 11 ENE 


PRP “STATE 


BieLBL “STATE* 


BLeLEL 
SISE? 5 





BE+LEL K 
CLRG 4 STO 44 “ah 7 


11eLBL 4 
PROMPT ST+ AB XCiT 
RON XV? GSTO 44 Rt + 
ST+ @1 LASTS * ST+ 4 
REL 44 GTO A8 


264LBL E 

"HEAN" AVIEN PSE 

RCL I RCL 48 - CLI 
STOP GG EC 


36eLBL € 

“GHEPPARD" AVIEN PSE 
PSE *k SIZE ?*  PROMPT 
SF Gà 


44+LBi € 

°SDEV" AVIEH PSE 

RL 82 RCL A8 
REL A1 RL AB  Xt? 
- CLD FS20 48 GTO 41 
STOP GIG TI 


S1eLBL 81 
#OY Ht2 12 4 - 
STOP 


68eL8L D 

“HEDIAN" AYIEN PSE 

RCL 68 2 7 "NINF" 
FIk 1 AREL EX "+?" 
PROMPT “N SUP " ARCL Ÿ 
+7" PROMT RILY - 
RH - Rt : 

"# SIZE ?* PROMPT +* 
“VAL K 9% PROMPT + 
FIk 2 CLE STOP 


99eLBL E 

“MODAL" AVIEN PSE PSE 
“H= * ARCL A4  PROMPT 
END 
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PRF *STATI" 


BieLBL “STATL 
EREG 88 CLE “DATat 
PROMPT 


dé+LBL HE 
RL 83 RCL AS RCL 81 
RCE Ÿ + RIN 7 RIN 





MEAN #t2 KO Kt2 
RON - REN - CHS Rt 
RTK 


264LBL A1 
MEAN # CHS RCL 84 
REL 45 / + RTN 


35418L 4 

XEg 41 STO [ XxE BA 
REL D : {7x RDN MERN 
Rt STOT + - RIN 


49+LBL À 
"MERN* AYIEM PSE CLD 
MEAN  STOP 


56+LBL B 
"SDEV* AVIEH REG 08 
LD STOP 


62eLBL € 
"SDEY 4Y* AYIEN PSE 
RES 81 STO Y CLD STOF 


FBeLBL d 

2gë2 E-6 STO \  REGSHAP 
REG @2 RCL  REGSHAP 
RON GTO 43 


73eLBL D 
AEG 42 


BL4LBL 83 

“y= FIx 2 ARCLY 

“EXT XD? “H+* AREL & 
PRONPT 


JR4LBL E 

KES @8 * SORT STD I 
XEQ 81 RCLE 7 “R=" 
ARCL X  PROMPT 


181eLBL F 

KEQ @2 KEY "8 7" 
PROMPT # + “Y=" 
ARCL X  PROMPT 


1HieLBL G 

REG 82 “Y 2?" PROMPT - 
CHE XCD 7 “xz" 

ARCE x PROMPT END 





ACONST 


CONSTANTE RRITHMÉTIQUE en RPN ÇaCONST) 


Ouvrages cités: 


“"Extend your HP-41" par W.A.C. Mier-Jedrzejouicz (1985) 
disponible au PPC-T. 


“Algorithms for RPN Calculators" par John A. Ball (1978) 
John Wiley & Sons. 


Les réflexions qui suivent sont basées pricipalement 
sur la page 49 de l'ouvrage de W. Mier-Jedrzejouicz, 
page dont voici un essai de traduction: 


"De nombreux et nouveaux utilisateurs des calculateurs 
RPN 5e plaignent de n'y pas trouver un dispositif de 
‘facteur constant’. Ils ne se rendent pas compte que le 
registre L et LASTX fournissent la même possibilité. 
Si vous avez besoin de faire des calculs arithmétiques qui 
feront souvent usage d'une constante, vous pouvez écrire 
cinq courtes routines qui utiliseront la touche affectée 
[USER] comme touche de stockage de la constante et les 
touches affectées (41, [-]1, [*] et [/] comme touches 
d'opérations. Voici les cinq routines: 


LBL K STO L RTN 

LBL + LASTX + RIN LBL - LASTX - RIN 

LBL # LASTX +* RIN  LBL / LASTX / END (cela peut être 
un END ou un RTN). 


L'étiquette "K" et les fonctions +, —-, * et / seront 
affectées respectivement aux touches [ENTER], [+], [-]1, [+] 
er. L/1: 


Pour utiliser ces routines, mettre le calculateur en 
mode USER, taper votre constante, [ENTER] pour la stocker, 
puis réitérer l'entrée d'un nombre et l'appui d’une des 
touches [+], [-], [*] ou [/] en utilisation avec la 
constante. Bien entendu, vous ne devez pas faire de calculs 
supplémentaires qui modifieraient la valeur stockée dans le 
registre L. Si vous préférez ne pas utiliser les touches 
ci-dessus, vous pouvez choisir d'affecter les fonctions à 
des touches différentes. 


Une autre possibilité de faire de l'arithmétique avec 
constante est d'utiliser la faculté qu'a la pile de 
descendre à chaque opération et de copier T en Z. Cela 
implique de placer la constante en X, de presser [ENTER#] 
trois fois, puis de taper successivement des nombres et de 
presser l'une des touches [+], [-]1, [*] ou [/]. Après 
chaque calcul, il faut presser ([CLX] puis taper le nombre 
suivant avant de déclencher le calcul avec la constante. 
Cela paraît plus compliqué que d'utiliser LASTX, mais cela 
donne la possibilité de soustraire d'une constante ou de 
diviser une constante, car la constante est en Y pas en X." 
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Le programme ‘aCONST’ (arithmétique avec CONSTante) 
utilise uniquement des labels globaux obtenus la plupart à 
l'aide du module ZENROM. L'affectation se déroule en début 
de programme. 11 faudra donc effacer (après les avoir 
éventuellement sauvegardées) toutes les affectations 
existantes. Le programme activera le clavier USER. Si, 
pour une raison quelconque, on désactive le clavier USER, il 
faudra le réactiver (presser [USER]) pour utiliser les 
touches redéfinies. Contrairement à l'assertion précitée, 
il sera possible de faire des calculs additionnels, car les 
routines ‘+','-",°*,'/" respectivement assignées aux 
touches [+],1-1,[1*]1,[/]1 n’affecteront pas le registre L. 
Ces quatre assignations provisoires seront supprimées par 
[XEQ1 00, dès que l’on quittera le programme. De plus, pour 
répondre à une critique énoncée ci-dessus, il ne sera pas 
fait usage de la touche [CLX] après l'affichage d’un 
résultat: L'entrée de la donnée suivante ‘écrasera' ce 
dernier. Le programme conserve deux fonctions ‘monadiques' 
{appelées ’foncteurs’ par Lukasiewicz dans son livre 
"Aristotle's Syllogistic from the Standpoint of Modern 
Formal Logic' (1951), p.78, livre cité par John Ball dans 
son Introduction à RPN, p.2). Ces fonctions, ’X?2' et 
*1/X°, seront utiles par elles-même, la dernière étant de 
plus employée, avec ’Y#X’, pour le calcul des racines. 


Afin de rendre le programme plus complet, aux quatre 
foncteurs ‘diadiques’ (voir Ball, p.2 et p.87) courants 
+,%-t,1#,7/", ont été adjointes les deux variantes 
désignées: ‘’-’ "selon HP" et ’/* “selon HP" qui réalisent 
les opérations souvent utiles décrites ci-dessus, ainsi que 
deux autres foncteurs ‘diadiques' ('Y?X’ ou atb et 
*MOD' ou a mod b) et les trois foncteurs ‘bifides' (voir 
Ball p.24-25) ’X° (ou ’a%x’), ’al' et 'YT'. Il a été 
adjoint xta et x mod a, qui permet un test de 
’divisibilité'. I1 a été ajouté, pour tirer parti de la 
fonction %T, une petite routine LBL @1 qui permet d'entrer 
une liste de N articles avec quantité (le cas échéant) et 
prix, ainsi qu'une routine "#HYT" qui permet, pour une 
valeur No #, de connaître le montant du poste et le % du 
total. En outre, à titre d'exemple, une routine de 
“conversion de taux d'intérèt" (NOM-ACT) permet de convertir 
(vice versa) un taux nominal en un taux actuariel (donnant 
également le taux continu) ,en entrant chaque fois une 
période différente. L'affichage comporte le nonbre de 
décimales souhaitées, en modifiant le FIX à la ligne 373 
De plus, une routine ‘MUX’ (‘markup' par rapport soit au 
Cost soit au Price, pour reprendre la terminologie de la 
nouvelle machine financière HP-18C) donne deux 
possibilités: 

- Calculer pour deux valeurs,la "marque" et la "marge" 
{voir le manuel HP-38E, français p.26). 

- Calculer pour une valeur (que l'on entre au clavier, 
suivie d'un appui sur LENTER#] ) la "marque" ou la "marge". 

Dans les deux cas, l'affichage peut ëtre donné sans 
décimale ou avec autant de décimales qu'on le désire 
€--> 9), par modification du FIX de la ligne 188. 

Les deux nombres entrés seront désignés: 

a (la constante) et la deuxième valeur b, sauf sur la 
grille d'assignation ou la carte magnétique où elle sera 
désignée par x, pour une plus grande lisibilité. Pour 
simplifier, dans les lignes suivantes, les touches du 
clavier seront précisées sous leur désignation ‘alpha’. 


1/x SQR a-x a/x 


perate fée 


a*xiixtaiix-aiix/a 


1x'aliN-AiixmaiiMUXIS HAT 


ix#aiia%xiiamxii AXit %Ti 
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Description du programme et des fonctions 


Aprés avoir tapé [XEQI “aCONST", le display affiche 
CASN:'RS' 4à,'A'1. 

S1 les touches qui doivent recevoir une affectation ne 
l'ont pas encore reçue, presser LR/S1 (cela redéfinit alors 
automatiquement le clavier et affiche:  [a,'A' T3 
entrer alors la constante (base) a, presser TAI ). Dans le 
cas où les touches ont déjà reçu leur affectation, entrer la 
constante (base) a, presser LAI, le display affiche: 

E. 5? ] 
Après usage du programme, faire [XEQI @0, 
afin de supprimer l'affectation des touches. 


Entrer en X le nombre b, puis presser l'une des touches 
affectées aux foncteurs de la figure ci-dessus ou l’une des 
touches redéfinies ci-dessus ou toute autre touche valide du 
clavier. Le résultat s'affiche. Pour un autre calcul avec 
la même constante, écraser le résultat en entrant un autre b 
et en pressant la touche correspondant au foncteur choisi. 


Dans les exemples suivants, comme il est écrit 
précédemment, les touches affectées sont précisées sous leur 
désignation ‘alpha', à l'exception des touches autres que 
celles des deux rangs du haut. La touche jaune SHIFT sera 
désignée ‘par [f]1. La plupart des exemples proviennent de 
manuels HP ou de l'ouvrage de W. Mier-Jedrzejouicz. 


CALE ET 71 
Ces touches affectées par le programme, permettent 
d'utiliser le calculateur comme à l'habitude, à partir de 
nombres entrés avec la touche [ENTER] où à partir de 
résultats obtenus à l'aide des touches des deux rangs 
supérieurs. Si l'on utilise ces touches, il faudra se 
dispenser d'utiliser la fonction [LASTXI. 


CCI, CDI. LFASLET CÉTEDI, EFICET 


- Traitement des erreurs (Manuel HP-41C français, juillet 
1979, p.44) 


Vous avez par erreur divisé 287 par 12,9 alors que vous 
vouliez le diviser par 13,9. 


287 LAI 12,9 LFICE) 13,9 LFICEI --> 720,647 


- Reprise d'un nombre pour un calcul (idem, p.45) 


Calculez 96,704 + 52,394706 
52,394706 


52,3934706 [CA] 96,704 [CI [EI --> 2,8457 


- Calculs avec constante (idem p.45) 


La population d'une culture bactériologique croît 
quotidiennement de 15%. Calculez pour une culture de départ 
de 1@00, la population en fin de journée pendant quatre 
jours consécutifs. 


1,1S CA 1000 [F1 --» 1.150,0000 le résultat 
[F1 --35 1.322,5000 joue le rôle de la 
LF]1 --3 1.620,8750 deuxième valeur b 
[F1 --> 1.749,0063 


{Manuel HP-41CX Volume 1 français ,mars 1984, p.24) 


Parmi les étoiles les plus proches de la Terre, 
Centaure et Sirius se situent respectivement à 4,3 et 8,7 
années de lumière. Utilisez c, la vitesse de la lumière 
C3,5 x 10:12 km par an), pour calculer leur distance par 
rapport à la Terre, en km. 
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JS: LÉBXE 2 GAL SA EP. € 4,6859 13 ferre Centaure 
Bi 7 CF ÿ #,2600 13 Terre: Sirius 


Ces calculs de facteurs constants peuvent 5e dérouler 
aussi facilement avec les quatre opérations arilhmétiques. 


Par exemple, en soustraction: Un veut soustraire des 
trois montants 120, 165, 217 la somme de 15. Quels seront 
les nouveaux montants? 


15 LAJ 12@ [DJ -->: 105,00 
166 [DI --> 150,00 
217 LDI --> 292,00 


Remarque: La touche [AI permet de stocker dans le 
registre L un nombre N affiché en X. Si, à l'affichage du 
message “ b?", on presse LF], La valeur N°2 s'affiche en X 
(cela explique l'absence au clavier d'une touche redéfinie 
pour la fonction X°Z, car la procédure ci-dessus est 
simple). L'appui répété sur [F1 entraîne l'affichage des 
puissances successives de N. 


{B1 [fJIB1,[fI[CI 


Pour ces touches, qui sont relatives respectivement aux 
fonctions Y°X, 1/X et SQRT (les deux dernières étant les 
deux seuks fonctions “monadiques" représentées, en position 
shiftée) on peut se reporter aux manuels HP. 


L'avantage de la constante a est manifeste pour Y°X, 
car il permet des calculs rapides pour des valeurs 
différentes de X. 


Exemples d'emploi de la touche (B1 CYIX): 
Manuel Texas Instruments SR-66 français p.56 


1) Calculer 10,4X°5S - 30X°3 + 9X + 2 pour X = 193,2818 


143,2818 LA] b? 
5 [B1 10,4 [#1] 
3 (B1 30 LEIC=1 
1 [81 3 Cf10+1 Cou :  Lf1 LLASTXI 9 Cf]1[+1) 
2 [+1 --> 27.503.708,11 


Soit 14 touches à taper (1). 
fivec une HP en mode non-USER, on aurait pu mettre le 
polynôme sous la forme de Horner, soit adopter une séquence 


comme la suivante qui comporte 13 touches, [f] non comptés. 


19,2818 [ENTER] CENTER] CENTERI S LfIIY®XI 10,4 Ex] CX<>Y] 
3 CFICY®XI 30 Es] [-1 CX<>YI 9 el L+] 2 [+] 


2) Calculer Le fonction suivante pour X = PI/9 radians: 


sin :4X°3 - 7X + 1! + cos 
î EXP 20 À 





11 faut calculer F = C4X°3 - 7X + 1) 7 (8X°2 - 9) 
et ensuite G = (sin F + cos F) / (sin F - cos F). 


IXEQI RAD 
PI 4 [/1 [A] b? 
3 [B] 4 Lx] 
1 [B] EFIE-] Cou : [F1 CLASTXI 7 Cf1l-1) 
[41 --3 le numérateur -1,273330491 
2 (B] Lx] 
[-1 --> le dénominateur -8,025224257 
[/1 --3 F = @,158666032 
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Soit 12 touches à taper (1). 


Puis, pour calculer G: sortir du mode USER et taper la 
séquence suivante: 


[SIN] ESTO VI] ILASTX] [COS] [+] [XC>YI CLASTX] [-] (/1 
et l’on obtient le résultat -1,380983690 


Avec une HP en mode non-USER, pour obtenir F on aurait 
pu adopter la séquence suivante qui comporte 17 touches: 


PI 9 [/] CENTER] [ENTER] [CENTER] [x] Ca] 4 [x] CXOYI 7 Ce] 
E-1 1 [+] IXCDYI CENTER] [#1] 8 [*] 9 [-]) [/] 


Les deux exemples précédents calculaient la valeur d'un 
polynôme ou d’une fonction pour une seule valeur. Si l'on a 
plusieurs valeurs à traiter, on peut entrer les séquences de 
touches sous la forme d'une routine, LBL @2 par exemple, qui 
se trouve en ligne 463 dans le programme ‘aCONST' et qu’on 
effacera à la fin, en faisant [GTO] @2,[SST], DEL nnn. 


Exemple du Manuel HP-41C MATH PAC anglais ,p.24: 
Evaluer le polynôme suivant pour X = 2,5 et pour X = -5 


FCX) = X°S + SX°4 - 3KX°2 - 7X + 11 


Le programme serait entré ainsi: 


LBL @2 S [B1 4 EB] S [fil+] 2 (B] 3(f](-]) 
CFJILASTX] 7 EFIE=9 11 [+] 


2,5 CA] [R/S] 267,7188 
-5 LAI [R/S] -29,0000 


Les itérations d'environ 5 secondes sont évidemment un 
peu plus longues qu'avec le programme ‘POLY’ du MATH PAC. 


CH] a mod b 
Cette touche est affectée à "MOD" (a mod h). J1 peut 
être intéressant de conserver a comme facteur constant. “Il 
est parfois difficile de se souvenir exactement de ce que 
sera le résultat de cette fonction lorsque a où b sont 
négatifs. L'équation générale est: 


a mod b= a - < a/b > + a 


où < a/b > représente le plus grand entier inférieur à a/b. 
Par exemple, si a = -4 et b = 3, le résultat sera éqal à 2: 


Ar ES Sie 2 
car le plus grand entier inférieur à -4/3 est -7. 
Les cas spéciaux: 


b = @ donne a comme résultat 
a = @ donne @ comme résultat 


Un usage typique de MOD est de ramener entre © et 360 une 
valeur en degrés. 


a = -790 b = 360 donne 290 degrés. 
Cela est plus simple qu’une série de test X)0? et X<=Y?" 
Cf1CH] b mod a (test de ‘divisibilité) 


Si le résultat est zéro, b est divisible par a. 
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CfICF] 
Exemple d'emploi de la touche Cf](FJ (xfa)} 

Cette touche pernet de trouver le résultat de nombres 

différents portés à une même puissance. L'exemple suivant 

serait plus probant si l'exposant était compliqué. 













Calculer X°3 + Y°3 + 7°3 pour X = 2 Y=7 Z = 13 


3 [A] b? 
















2 TFILFI 8 
4 LFECE) 343 
13 Cf3LF] 21947 

t+10+] 2548 


[GI [11,09] - 
Ces trois touches permettent d'accéder aux trois 
foncteurs bifides %,(a% de x), A%X et %T1. 








%: le taux est conservé en L. Cela permet de faire 
des essais successifs: quel serait le pourcentage (un 
montant) obtenu à partir d'un montant bi, d'un montant b2, 
d'un montant b3, etc... tout moment, on peut calculer le 
montant net (par ajoût en appuyant sur la touche “+", par 
retrait en appuyant sur la touche “-"). 






















Quels sont pourcentage de TVA (18,64) et montant net 
pour des objets dont les prix HT sont de 619 F et de 1090 F7? 





Pourcentages Montants 


18,6 [A] nets 
619 {G] TV, [+1 734,13 
1098  [G] 202,74 [+1 VIN, A 





Cette possibilité permet également des calculs de 
ristournes, sans avoir besoin d'utiliser la touche [CLXI. 
Remarque: Si l’on ne souhaite pas connaître les 
pourcentages, mais uniquement des montants nets, il suffit, 
si la TVA est de 18,6%, d'entrer 1,186 dans le registre L, 
par appui de [A] et les prix HT en X. Presser sur [F]. 







Quel est le montant net (TVA de 18,64) de deux articles 
dont les prix HT sont de 619 F et de 1090 F7? 







1,186 [A] facteur multiplicateur 
619 IF] 734,13 F 
19930 IF] 1294,74 F 













NOTE : 
Les résultats des deux fonctions suivantes sont en ‘%° 
Si l'on veut un affichage avec un nombre différent de 

décimales, on peut modifier le FIX à la ligne 258. 





%: “Différence en tant pour cent", on peut comparer 
des différences, à partir d’une base commune a, pour des 
montants variés bi, bZ, b3, etc... 


Quelle est la différence en tant pour cent entre 456 et 
789. Quelle serait la différence entre 456 et 159, entre 
456 et 3007 









456 LA] b?7 Entrer la Zème valeur 
789 [I] 73,03% 
159 [I] -65,13% 
geo [I] 97,37% 















4T: “Pourcentage en ‘tant pour cent’ d'un Total. 
- Recherche de “proportions”. 





Pour trouver quel est le ‘tant pour cent’ d'un nombre b 
par rapport à un nombre a, énoncer simplement le problème 
ainsi: ‘b représente combien de % de a7" Entrer a, presser 
TA], entrer b, presser [J1. Des nombres successifs b (soit 
bi, b2, b3, etc...) peuvent étre entrés, chacun ‘écrasant* 
le résultat précédent. 
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Par exemple, le nombre 64. Quel est son ‘tant pour cent” 
par rapport à 340? Et le nombre 867 











34Q LA] b* Entrer b 
Ga. CIr Se T2 
86 [J1 -- 25:28 






Pourcentage, par rapport à leur total, d'une série de 
nombres cumulés. 






Pour calculer ce qu'un nombre (ou une série de nombres) 
vaut en pourcentage dans le total dont 1l fait partie: 






!. Calculer Le montant total comme dans un problème de 
calcul en chaine simple ou introduire ce montant s'il a déjà 
été calculé. Appuyer sur LA]. 









2. Intoduire le nombre dont on veut savoir le poids en %. 





3. Appuyer sur [J]. 






Exemple (Manuel HP-12C français, p.31) 

Le mois dernier, les résultats de votre société se 
chiffraient à 3,92 millions de francs aux U.S.f., à 2,36 
millions de francs en Europe et à 1,67 millions de francs 
dans le reste du monde. Quel est le "poids" de vos ventes 
dans ces trois parties du monde? 









3,92 CENTER] 2,36 [+] 1,67 [+] --> 7,95 Total 
Entrer le Total [A] b? 









3,92 [JI1 --> 49,31X U.S.A. 
2,36 (J1 --> 29,69% Europe 
1,67 [JI1 --> 21,@1X reste du monde 







EXEQI @1 Routine d'entrée de (quantité et de) prix 
Exemple 1 (avec les données précédentes): 













Affichage 

[XEQ] @1 N? 
3 CR/S] CSI,RS (Qté? [ENTER] ) 
prix? [R/S] 
3,92 ER/S] en pause, 1: 3,92 25 la valeur #27 
2,36 (R/S] en pause, 2: 2,36 3 la valeur #37 
1,67 [R/S] en pause: 3: 1,67 T: 7,95 1: 49,31% 
[R/S] 2: 29,01%X 
[R/5S1 3: 21,01% 





Remarque: 
A l'affichage d’un pourcentage, si l’on veut un autre FIX, 
faire [ICLXI, [FIX] nn. 






Exemple 2 (Manuel HP-27, français ,p.65,66): 
Vous possédez 150 actions Merlin-Gérin à 45@ F., 52 actions 
Locatel à 1404 F. et 200 actions Stockvis à 1500 F. Quels 


sont les montants et les pourcentages (avec une décimale) de 
chaque poste? 









[FIXI | en ligne 258 Affichage 
[XEQI @1 N? 
3 :ER/S1 CFI,RS Qté? [ENTER] ,prix? ([R/S] 






150 LENTER] 45@ [R/S] 67.500,00 2: la valeur #2? 
52 CENTER] 1404 [R/S1 73.008,00 3: la valeur #3? 
200 CENTER] 1500 [R/S] 30.000,00 
en pause, 1: 440.508,00 
Le total est stocké dans le registre dont le # est 
immédiatement supérieur à la dernière valeur du 
portefeuille, soit, dans l'exemple, dans le registre @4. 










15,3% Merlin-Gérin 
[R/S] 16,6% Locatel 
ER/S] 68,1% Stockvis 








L#10J) 





- Montant du poste et pourcentage pour une valeur No # (#%XT) 
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FÉPETI 


Exemple: Dans le portefeuille ci-dessus, quel est le 
montant et le pourcentage du total de l’action #Z (Lacatel)? 


Z [f11J] 2: 73.008,00 16,6% 


Avec deux décimales? [CLXI [IfICFIKIZ 16,57 

Remarque: 

Si on le souhaite, pour avoir une lecture plus facile des 
montants, on peut ajouter une pause en ligne 251 ou 
remplacer la pause par un stop. Si la HP-41 est attachée à 
une imprimante, les résultats s’impriment automatiquement. 


- Calcul de la “marque” et de la "marge" pour deux valeurs. 


Deux montants s'afficheront: à gauche, la "marque" (en 
anglais, “markup# on cost"), à droite, la “marge” (“markup%X 
on price"). Dans la plupart des cas: 

Marge que. 

Exemple: Un article dont le “eost" (prix d'achat) est de 
456 F. est vendu 555 F. Quelles sont la marque et la 
marge? Quelles sont-elles si l'article est vendu 589 F.7? 


Affichage 
456 [AI b? 
665: CHIC EAST Fe 1 Marque:21,7; marge:17,8 
28% FREETI F29; 2 2:56 1 Marque:29,2; marge:22,6 


Remarque: 

Si l'on veut un affichage avec un plus grand nombre de 
décimales, on peut modifier le programme à la ligne 188. 
Mais une décinale (FIX 1) est conseillée avec le programme 
“d'encadrement” ci-dessous, afin que les trois valeurs 
tiennent en même temps dans la fenétre d'affichage. 


Exemple: Adopter en Ligne 188 la notation FIX 8. Afficher, 
avec à = 85 et b = 100, la marque et la marge. Procéder de 
même avec a = 1@0 et bh = 85, puis avec a = 75 et b = 100. 

85 [AI 

100 CFILII --> 117,64705887 IS ,00000000] 
On reconnait l'ancien taux de TVA. 


108 [AI 
SS PEUT 2er 1-15,00000000-17,647058871 
La notation est identique à celle du nouveau HP-18C. 


75. tA1 
1@@ CfICII --> 133,33333333 25,000000001 


- Pour une valeur N (soit “marge”, soit “marque"}), calcul 
des valeurs NI et NZ qui l'encadrent. 
Taper N, puis CENTER?S], puis [fI(1]. 


MUXP MUXC 
NI N NZ 
MUXP MUXC 


Exemple: Quelles sont la marge et la marque si N = 20 ? 


2@ LENTERII CfIII] =? [16,7 720:,0 725,01 
Si N'est considéré comme une marge, la marque est de 25,0%. 
Si N est considéré comme une marque, la marge est de 16,74. 


Remarques: 

- Les valeurs N, Ni et NZ sont affichées en ALPHA dans 
l'ordre, de gauche à droite: [NI N N2] et dans la pile dans 
l'ordre: NZ dans X, N dans Y, Ni dans Z. En fin de 
routine, NZ est stockée en L, c'est-à-dire que NZ jouera le 
rôle de "constante". Si l’on souhaite voir jouer ce rôle 
par Ni, sortir de mode User, faire deux fois (RODNI, puis 
[USER] et (A1. 
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Exenple: La calculatrice financière spécialisée 11-44 
propose, dans son prospectus, le problème suivant: 
“Détermination du prix de vente correct". 
Vous souhaitez lancer une campagne de solde en préservant 
une marge de Z0%X. Quel sera le prix de vente d'articles 
achetés à 8,50 F. et 14,50 F.7? 

(f1[GT01(.1188 CfILFIXI2 


20 (CENTERIIfILI] --> [16,67 20,00 25,00] 


Si la marge est de 20, la marque devra être de 25 et et ce 
nombre se trouvera automatiquement stocké en L. 


859 LG) =292,,13: [#1 =-7 10,63 
14,5 (61 --73,63 DH] =-> 18,13 


Que deviendra votre marge si vous fixez les prix de vente 
respectivement à 9,90 F. et 19,90 F.7 


8,5 [A1 9,9 (fIII] --> (16,47 14,14 1] 
La marge sera le plus petit des deux nombres, soit 14,14%. 


14,5 LCA] 19,9 Cf1[I1-> (37,24 27,14 ] 
Marge: 27,14% 
tf116] 
“N-A":  NOMinal <-> ACTuariel 




















“ACT”: Conversion d'un taux nominal en un taux actuariel. 
"NOM": Conversion d’un taux actuariel en un taux nominal. 
“CONT‘: Conversion d’un taux nominal en un taux continu. 


Le taux nominal est la constante a. Il est possible 
d'entrer des valeurs différentes pour la période, afin de 


comparer les résultats. 


Cette routine comporte trois possibilités: 
(fixation du nombre de décimales en ligne 378 du programme) 


- Conversion d’un taux nominal en un taux actuariel. 


1. Entrer le taux nominal {A] 
2. Entrer le nombre de périodes [f]11G] 
Si l'on souhaite ensuite connaître le taux continu:  [R/S1. 


Remarque: 

Si le nombre de périodes a la méme valeur que le taux 
nominal et que ce taux nominal est encore affiché, faire 
[CHSI, LFICLASTXI et [f1[G1. 


Exemple (Manuel HP-92, Investor Applications, p.53) 
Quel est le taux d'intérét annuel actuariel, 51 le taux 
nominal de 5 1/4%X est composé trimestriellemerit? 

Quel est-il avec une composition continue? 


5,25 [AI b? Entrer b=4 
4 If1IG] -->(en pause) INOM: 65,254 4 1] 
CACT: 5,35% 1 
Si l'on veut quatre décimales, ifI[IFIXI 4 --> 5,3543 
Remarque: 
Les taux se trouvent dans la pile: 
T: Taux nominal donné 
Y: Taux actuariel continu 
X: Taux actuariel 
[R/S]1 --> [CONT:5,3903% 1 















- Conversion d'un taux actuariel en un taux nominal. 

1. Entrer le taux actuariel [A] 

Z. Entrer le nombre de périodes LENTERIJI Cf1IG] 
Pour un autre nombre de périodes, refaire 7. 


Exemple. Pour vérifier que le programme "tourne" et, 51 

l'on a conservé la valeur trouvée ci-dessus (5,354 266 7), 
entrer cette valeur, LAI, 4, LENTERIÏ, Lf1IG). On devrait 
obtenir 5,25 comme taux nominal. 
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[f116]1 (suite) 
Exenple (HP-18C Business Consultant, en français, p.78) 
Conversion d’un taux d'intérêt nominal en taux actuariel 
Vous envisagez d'ouvrir un compte d'épargne. 
Laquelle des trois banques ci-dessous offre 
le taux d'intérét le plus avantageux? 


(présenter les résultats avec trois décimales) 


Banque 1. 6,70%X d'intérët nominal annuel 
composé par trimestre 


Banque 2. 6,65% d'intérét nominal annuel 
composé par mois 


Banque 3. 6,65X d'intérêt nominal annuel 
composé par jour 
6,65% d'intérêt nominal annuel 
composé continüment 
L#ILGTOIL.1 3 7 3 LFIIFIXI 3 
6,70 [AI 4 [#f1(G) 6,870 (P=4) 
6,65 [AI 12 [f]1LG] 6,856 (P=12) 
365 Tf]11G] 6,875 (P=365) 


node User off Cx<>y] 6,876 (continu) 


Le taux le plus favorable est celui de la banque 3, 
qui offre un taux d'intérét nominal annuel de 6,65% 
à composition continue. 


Rappel: 


Pour modifier le nombre de décimales à l'affichage, faire 
FIX non: 


pour MUZ ligne 188 


pour A%X et %T ligne 258 


pour NOM <-> ACT ligne 378 
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@@1LBL “aCONST" 
2 «SF 27 


“"ASN:? 
PROMPT 


1 
ENTER 
ENTERS 
ENTER? 
15 
SE" 


PASN 
+ 


"D" 
PASN 
+ 


“ç" 
PASN 
+ 
“g" 


PASN 
Ré 


“" 
PASN 
CHS 
+ 


, “p" 


PASN 
+ 
“e" 
PASN 
KR 
"4" 
PASN 
+ 


nai 
PASN 


PPC-T No13 


mode USER 
RS'H:98,74" codes VIEW L 
ffectation 
des labels glabaux, 
des quatre opérateurs 
ge un nu y 
et de 
MR et “at 
x/a 
x-a 
x+ta 
a° x 
at 
1/»x 
SORT x 
ax 
a/x 
xT {T-a) 
% (entre a et x) 
a mod x 
a4%(de)x 
x*a 
* a 
NOMinal<->ACTuariel 


*x mod a 
MU% 

#XT (T-a) 
Y=X 
z-(y#x) 
y+x 
z+(Cy#x) 


Carith avec CONST) 08 


Mars-Avril 


1 

@BZ PASN 
@83 81 
@84 “/" 
085 PASN 
085 “a, 
087 PRÔMPT 
QB8LBL 00 
989 CLA 


@30 

Q91 ENTERÉ 
@32 ENTER 
Q933 ENTER 
@34 15 
@45 XEQ 
©9356 CHS 
@47 XEQ 
9938 CLX 
@94 75 
1@0 XEFQ 
1@1 CHS 
1@2 KXFQ 
163 51 
104 PASN 
105 CHS 
105 PASN 
107 Bl 
PASN 
CHS 
FASN 
‘71 
PASN 
81 
PASN 
CLX 
S FOP 
BL 104 
PBASN 

+ 

FASN 


y/x 


1@a 
1@a 


1@a 
1Qa 


8s 


Bùu—-S 


+ 
PASN 


BAT=S 


+ 

PASN 
+ 

i PASN 
‘7 RIN 
} 
} 


EBL “hp 14% 


RU RS RE NN NE RS RTC RS ee ee mme me ne + 3 


4LBL "ce" 
35 LASTX 
36 RDN 

37 5QRI 

38 G{0 1@t 
SILEL "5 as 
4Q SF 05 
AILBU OH" 
2 LASTX 
3 STO T 


SQRT 


B 
nx 
= 
es 
S 
Ed 


LBL "d" ax 


BRUN -SuLxmNnu 


ao 
L 
un 


z 
FF 


"CT xta 
LASTX 


2 
z 


nununmmununmunmnmcrRBRspRERR 


Suex-o 
+ 


LBL "D" x-a 





1987 


Entrée de la constante a 
Annulation des 
affectations de touches 


a mod x 
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AVIEU 

STO L contre le BUG #1, 

Z+ en cas d'usage de HP-41% £ actuariel 
X<> L 

STO IND L 

EOSEX 


+ 

RCL 00 

X=Y? à Ri 

GTO 10d Calcul CONT 
CF.29 

FIX @ 


AREL Y 
hs 


ASTO L : valeur de CONT 
GTO 13 (ligne 311) 
339LBL 1@d 
34@ ADV 


restaure L 


ARCL IND 00 Impression ou 3 X= 

AVIEU affichage momentané GTO 19 -> affichage CONT 
ST0, E 25: ACTES" 

E ARCL X 

ST- @0 5 so 


% 
E3 AVIEW Affichage de ACT 
ST/ @Q RTN Si CONT voulu, R/5 
£ 1SG 0 43@L8L 1@g -> affichage CONT 
351LBL 11 431 “CONT:" 
: SF Q5 432 GTO 1@h 
CF 29 433LBL @9 
FIX © 434 LASTX Calcul 
MU 435 STO @Q 
ARCL 0Q 436 XCY du 
ER 437 ENTER# 
RCL IND @Q 438 1/X taux 
XEQ 12 (ligne 256) 433 E 
FC? 56 44Q R4 d'intérêt 
STOP Affichage du XT pour 441 X 
1SG @2 chaque valeur, R/S 442 + nomina]l 
GTO 11 443 LN 
444 »* 
445 E4X 
Conversions de taux 446 E 
d'intérèt 447 - 
448 EZ2 
449 # 
A5Q * 
451 RCL 00 
452 STO L restaure L 
453 “NOM: * 
AGALBL 19h 
455 XCY 
456 ARCL X 
ASTHX" 
Modifiable 458 AVIEU 
379 459 RTN 
380 ? AG@OLBL “A" Entrée et stockage en L 
381 5 461 STO L de la constante a 
462 “ b?“ Entrée 
463 PROMT de la Ze valeur b 
si seul CONT est voulu, 464LBL @2 Étiquette de la fonction 
afficher message NOM 465 END à évaluer en un point 


-> caleul CONT 893 BYTES Reg 00 utilisé AA Pme (open) 
afficher la lère ligne Affectation le cas échéant, de VIEW L 

FS?C 06 par programmation synthétique ou à l’aide 
GTO 09 -> calcul NOM des modules CCD ou YENROM: 
LASTX VIEW L: XROM 33,52 à la touche [-11] 
KOY codes décimaux: 152, 116 
ST/ Y codes héxa: 98, ‘74 
EZ Calcul du Les étiquettes numériques de 3 à 8 inclus 
ST/ Z ne sont pas utilisées, afin de permettre 
E leur emploi éventuel, soit dans le programme 
ST+ T taux d'intérét lui-même, à modifier, soit dans les fonctions 
CLX (à évaluer) que l'on entre à partir du LBL @2, 
LASTX situé à la ligne 464. 


# Le BUG #1 est décrit dans le livre de W. Mier-Jedrzejouicz, page C-2 
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BLXLBL VARIATR® 
VARIATN Pine er 


1766 LALOUX G. CE QU Pr fG 22 
7 Rue des Vignes “DEBUT 2°  PPOMPT 
57740 LONGEVILLE LES ST AVOLD STG BA KEN 2 




















ieifl 74 
SF 25 24 STG 
AIN 97 PROMPT a 
“INCREMENT 1° 






PROGRA 1TS étude de fonctions . 
MATERIEL 41CY sans extensions . 
DESCRIPTION :ce programme étudie vcoutes les 










fonctions numériques en vous donnant leurs se 
variations , leurs extrémuns , leu”s limives ce 
infinies , les éauations ou les directions SF és 


“FONOTH* 679 87 






ds leurs branches infinies , les asynpiotes 
verticales et enfin dans le cas où le foncrion se 
étudiée n'est pas entièrement définie sur 
l'intervalle donné la 41 vous le :réciscra . 
DÉROULEMENT DU PROGRAMME : SIZx: 013 

* 2entrez votre fonctio: sous Le Label FO.C'TI 
et finir par RTH . Utilisez la memoire RCO 
pour stocker la valeur @e *X si nécessaire . 

* X. "YARIATI 

* Affichage -ETUDre puis après une vause : 



















DEBUT ? : La 41 vous demande le début L'‘tude 
FI: ? : la 11 vous demande la fin d® l'étude 
souhaitée 


Dans les 2? cas si la valeur donnée ne fait 
nas partie du domaine de définition la 1 
affiche : ïfiORS Je . 

À ces ? auesbtions rénondrz nar une valeur 

numéri ue suivi d'un 2/8 (par la srite je ne 

1e précise nlus) « 

INCREMELT ? : entrer de nréférence 0,1 cela 
marche quasiment tout le tenps , le 
pro;sramme comparant des factions du 
domaine étudié il faut lui donner un 
incrément oui est la valeurde découvage 
du domaine d'étude . Par exemple le domaine 
d'étude choisi est 6 à 10 eù l'incrément 
eat 0,1 , l'intervalle sera dicoupé en 
10/0,1-100 parties cui seront toutes 
comparées à la sartie qui leur est 
nntérieure nour déterminer si la fonction 
ent croissante ou decrois:ante . Plus les 
varintions d'une fonction seront rapprochées 

























plun l'incrément devra être n:vit. SF 85 
PRECIJION ? : vour définir la précision dans CF 85 
Lous les résultats numériques que vous GTA 7 
nffiche La 41 . 2€ suffit pour une précision Gr !! 





























au 10ùme . Plus le chiffre sera “rand nlus 

ln 41 sera longue pour la détermination titeLel 12 

don valours numériques . . REL 48 SIA GO I 

* Après N/1) la 41commence sa recierche et peu 

affichor oil : L1SeLBL 
CROISSANTE pour indiquer que la fonction est RCL @7 

est orolnuante soit “SOMMET 
DECROISSAI TE pour decroissante . PRONPT 
Si les vaurinlions changent dans lo domaine 
d'étude ln 11 vous indique les sommols : 123eLBL 28 
SOMMETS EN x XX,XEX SF 25 
Lorsque In fonction n'est pas définie en RL 1 5 
un ou pluniour!s points il y aura dos asymptotes RCL 18 i.agapl + 
verticalon que signale la 41 par : sta 49 
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ASYMPTOTE VERT. EN x=XX,XX 
Lorsqu'il y a asymptote en un point x , ce 
point ne fait pas parti du domaine de définition 
ce que signale la 41 par : 
HORS De : XX,XX . 
g'il y a plusieurs points de suite non définis 
la 41 vous le signalera par une suite de 
HORS De :XX,XX les XX,XX étant différents 
en suivant de la valeur de l'incrément . 

* LIMITES INF. : indique que l'on passe à L'étude 
des limites infinies . La 41 vous donnera les 
indications suivantes : 

DN +INF. :XX,XX ou +/= ÎNF. 
EN -INF. :XX,XX ou +/-— INF. 

* BRANCHES INF. : étude des branches infinies . 

Ta 41 vous donne soit l'équation soit la direction 
générale des branches infinies : 

EN +/- INF. EQ : après une pause : 

Y=AA,AAx +B5,BB ou : 

BRANCHE // Ox ou Oy 

* TERMINE . termine l'étude . 

COMMRNTAIRE : ce programme très pratique s'adress: 
essentiellement au étudiants de niveau SAC . 



















3U40LBL 75 
“paINE," PROMPT ec ; 
1386LBL à GIF INR SE POMPT ro 
ge 25 RL OS RCL 6 « 
. : ë HN 2 2ABALEL 3 

STÉ AE LE 9 os 
SE “FONCTN" BEL 88 “ si sie FS5 43 CD 0 SF 63 
e. ‘ INF. QMPT A ce 
FS? 25 GT 2 TO 05 ré FS3 87 GT0 89 
GTO 21 STA 83 “EN -INF." 
GTO 8 





134eLBL 21 
DSE 89 GTO 24 GTE 23 








“vu 















3124BL 47 


2aSeLBL 16 
"EN -INF,:" 17 SO ET 
-1 ENTEP* OTO 


1SeeLBi ZE 
STO 86 GT0 21 





3220LRL 37 
KEQ "FONCTH" FE? 
RTH "HORS De” 









55 É a 3 
YED @d p 23248L 1 



















GTO INR #2 
“AS VERT EN 3e “BRANCHES INF." PRONPT | 
AMEL 06 PROMT SE 323, S0B AG AFONEEN F9LEL 69 

F59 25 610 68 ne dE 

iéte “EN +INF," XES 27 … ! 7 
si “RRANCHES 2/0v* SE 66 a 
“ED “FONCTH= F7 25 PROME AVIEN 
GO #8 “De +" pr 
MRCL BL PROMPT ROLL! ru TIALEL 39 
ST+ 81 GT0 27 Ù & STORZ AIN EN 


KEG “FONCTH" FS7 25 
GTO 36 “EN -INF.* 

XEG 37 SF 97 

"ERANCHE //0V°  PROMFT 


173eLBL Bé 
RÜL 84 












1756LRL 25 
X267 “CROISSANTE" RCA” 
"DECROISSRNTE" AYIEW 
RTN “LIMITES INF," 
PROMPT "EN +INF. * |? 
STO 92 1 FATER 


256+LBL 36 
F57 48 GTO 87 
"EN +INF." 1 STO A3 


2686LBL Ré 

RCL 63 IAAEAR + 

XEQ “FORCTN" REL 83 
Sea + XEQ “FONCTN" - 
ROL 83 99588 * 
STO 01 iABAga RCL Di 
+ CHS 148048 

RE@ “FONCTN" + STG 4e 
15 RCL @2 ABS K)Y? 
XEQ 39 jE-2 RCL RÈ 
ABS ny? NED 39 

RCL 81 ABS Î E-2 
X<=Y? CTO 35 KEQ 37 
“BRANCHES //0x*  PROMPT 
GT0 07 









189eLBL 18 

1898 » SF 23 

XE9 “FONCTH" STO AI 
FS? 25 GTO 13 “HINF." 
PROMPT &TO IHD 82 















209eLBL 1S 
RCL 81 X3@? GTD 19 
K«a? GTO 36 X=4? 


287eLBL 31 
ARCL @1  PROMPT 
GTO IHD 42 
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CALCULS 





BU UI UN AIT AUDIT IA I IT LAIT I IL U 
7 CALCUL D'ATTENUATEUR T ET PI ÿ 
ALL LIL LA 


Ce programme permet de calculer des circuits atténuateurs de puissance 


qui équilibrent les impédance de ligne à chaque extrémité et divisent 





la puissance par K. 


a) Atténuateurs de type T : 
RI(Ohm) R2(Ohm) 


N—2 PRP "ATT" 
Z@(Ohm) R3(Ohm) ZI(Ohm) es 
BteLEL *ATT 
2eLEL 81 
SF 27 AGFF 


“TAPIE PRONT 
Remarque : ZSMZI et NI, 
BTeLEL À 

REC 4ÿ &EG 87 à£e 44 
AFCL X STOP kEG b4 


b) Atténuateur de typeTT: AREL KO STOP EE 85 
R3(Ohn) ARCL Bé STUP GTo &i 
PE ME TE : a 
Z#(Ohm) RI(Ohm) sl ZI(Ohm) ant et 
â " 
STO A1 KR 





ST 82 

1x AR 
Remarque : même qu'en a). REG ü4 ARUL à 
STOF EG ES RèL 9 
1/K ARCL #  STÜF 
GTC 81 









4e EL ÿ5 
AOFF ? 
STO &i "ai ? 
STO 82 °H ?” 
STU 87 1 









HEÉLAIRE PATRICK 





6», rue Paul Eluard S7eLEL 03 









RCL 43 RCi fi 
Ge010 AVION. # + SORT 2 
1 - SIG 45 





lol, : 21.78.1795 cl 


CL és 1 + RCES 


STO 65 RTh 






FI4LEL 4 
KEQ 45 Fi 
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AIT 
CALCUL D'ADAPTATEUR D'IMFEDANCE 


/ 

} 

, 

a VALLLEELEES 
} AVEC PERTE MINIMALE 7 

1 


iii iii 


Ce programme permet de calculer RI et R2 qui équilibrent 2 et ZI 


avec une perte minimele. 
RI(Ohm) 


: R2(Ohm) ZI 


Remerque : ZYAZI. FRE “ADR 


Note : perte minimale = LMIN. 


FIR à ARÈL X ‘rés 
PROMFT GT 84 


JU Ei 
X& 


MOYENNES 


Defimahin d'une mesjonme dde + 
Ha: £frxst AU Ado d Rqho = 2 fr bris h2:0 
Hayenme bamonique » € $ ë & Coke - 1) 
Ha gomme qomehique => G:Txf (adeo) 
Hagonme ae Rméhque = X: £ fe (sac) 
Rojmme gadahque 2 Q - VEpee (oœke 2) 
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LRAL "Hot" 

LALAS : 
WA:£_C:AC_MH'0Y 
AVIEW 
FFOLOB4£2c54 
tm LA40 
GETkEY 

PosA 

xcoi 

GTo10 

x#40 1 

GTO INDX 
SN:X - +: CNT" 
AVIEW 

F22930 (Th) 
Lstos 

&ETREY 

PesA 

X<O 1 

To dS 

x +01 

GTo16 

S12€9 

6 


x>q? 
PSIèE 
LÉ 
CLRGX 
xc>F 
«Bt 46 
(S60oS 


t Tale) 


AacLoo 
ÉSUIE/xX" 
xeGO$ 
RCLO41 
S&E. Locx 
xee@ 08 
RcCCOoù 
“£E.x" 
xXeao3 
RCCOB 
S£SE.x2"“ 
XYE@O8 


(TEXTE Fo) 


Noe 
"ÉTRE" 
RCtoS 
. Cfhio RRCLOS) 
+) ? € 
PROHPT 
GTo 415$ 
-XP2 


CEST 
AP 
FCICI2 
CAsTx 


A:£-C:ALC - M'o4 
Touche CÇ 

N:x - +: CONT 
Touc 


FRxC)- Î 
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w 


PROMPT 

RTN 

CB toë 

SX'HEX:GE x BEx:Q" 
AVIEW 

F6471600 332054 
LB1o+ 

GETREY 

Pos A 

xco! 

GCTo + 

SFINDX 

FcaCoû 

F57€og 

GTo {45 

RCINDX 

RC£oy 


/ 

FS 900 
4/>x 
FS1041 
1o7x 
FSio3 
SGRT 
SX te 
FS2CO0 
SE H te 
ES97Co1 
vs FC € 
FSC o2 
SFBAR" 
FSt03 
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ET X(S)-1 


Ris pour XOEmE -uu menu 
A:5- C'ALC - Moy 
Tour € À L 
£F/X:93,0395 
AS 
E F.LOcx : 1,044 
ae 
F.A =: 4 © 
RAS 1 ; Ps : Pœute des Eu dans 


LE.X2 -484, PS: 
. bande AO UR NTRGE 
ASN BININ où OcTIW 


X:HEX:GC x BU x: A faculkehif 
TOUCHE H © 4 
GTO.002 PREM 
Bmum ou Om 

X'HEXGLX'BEX'Q en Sun à Touche S + 
Touche G- BFFACHRGE 03 E+ 

m madlo PREH 
RIS O3 BININ où © OCTIW 
X'HLx'Gex'Bér'Q 
Touche 8 
X4 BAR = 11,350 


RIS 
X:U<x'G<x'Blx'@A 
Taucl 


X'M€X'G€x'Béx'Q 
Touche <— 
A:£-Cc:hRic_M'oY 
Toucfe M 
X'H<K'G€CY'B€x'a 
ToucRe A/S 
A:2-C'ALC_ H'0ÿ 
Toiccke < 

Euh du RAG M 

ke Hoy* Cou R/S) 
A'£.C:ARLC-H'0ÿ 
Touche € 

N:X t'CONT 


Touc 
ÿ 
3: 


A:£. CIALC M'oYÿ 
ToucRe A/S 


FIN PREM (ua tafclop ) 
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RENARD-PIERRE . T440. BORSBEEKBRUG 3C/27 . 2600 - BERCHEM - BELGIQUE. 


+ CAFACTERES «4 


Ce programme imprime 144 caractères dans le sens de la longueur du papier. 

Aucun registre mémoire n'est utilisé ; 315 registres sont utilisés par le programme 
(10 cartes magnétiques). 

Voici les caractères imprimés : 


ABCODEFGHIJKLMNOPORSTUMHXN TZ 


sbecdeseëfahijkIMNOPATELUVUXME 


Exe$t-K/=ré x TP 


EXT EL 


# Tel 10 BE Bu éLaiR" ti lTT éd RIidUKHSSO 


Four imprimer un caractère, il suffit d'exécuter le LBL (alphabétique ou numérique ) 
correspondant. Voici les LBL correspondant : 


LBL ALPHABETIQUES BL HUMERIQUES 


LEL 
LEL 
LEL 
LEL 
LEL 


LEL 
LeBL 
LEL 
LEL 
LEL 
LEL 
LBE 
LEBL 
LEL 
LEL 
LEL 
LEL 
LEBL 
LEL 
LEL 
LEL 
LBL 
LEL 
LEL 
LEL 
LEL 


LEL 
LEL 
LEE 
LEE 
LEL 


TLEL 
MLEL 
OLEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
BL 
LEL 
LEL 


LEL 
LEL 
LEL 
“LEE. 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 
LEL 


vaom 


NC J+é doté 
co 09 CO 09 1 
tj My ee Qt È 


INWTATIHIA3Q 


Bb bb bé bob bé bot het (E) 
nm LA lie D 


; Ai di 


5 
NE +0 MITURUNeDHNOL D 


ANATQTOZTZITRLOIONMANTID 


SALE 
Il 


N<HKÉE< 


D a iQ AN EN EN UN à 
Pda dal Me dE 0 00 A 








mi 
+ OÙ 


LB 





4-1 1 4 
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J 


“TAB ? <i- 
sta L SKPEUL 


BALL 
ADY STOP 


12LEL À 


er EC “95 


184LEL E 
“qu * XEC "99 
2isiEL b 

“EuüB" HE “99 


244LBL © 
“pag "* REC “99 


278 € 
"Bañ/+" XER "93" 


Que EL 26 
“ARgar" SEE *95" 


JAeLEL D 
“Rép ?* AEG "92" 


F3eLEL à 
“Qu£3m" ES “39” 


géeLBL 21 
-ruète" 
SelBL E 
“gai 
gr XED “9 
1RBeLEL 2 
39eLEi € “Gosige" 
-Ba/4"  YES 
LASeLEL “0” 
42eLEL Li 
“pass HEO 
148eLBL 23 
45eLEL 12 “Auépes HER “32” 
“ph ES" 
LEI4LEL * 
4BeLEL 13 
“he HEG “92 
HILL 24 
“HER 


FE 


Lis “6 
SéeLEL 14 
“gg C2ÿ* KEG "99" 


SPL 6 
“ûpr" à 


EQ 29 


SRLBL 15 RE “age 
s 8 REG “33 


fte” ER *92* 


JeLBL HR 
“Qpupte REC 799" 12981 “SE 


“ui” * HER "55 


PPC-T No13 


FACTEFES 


1474181 NV" 
“a AB" XE 


153 EL 
“Quav2"" XED "99" 


1598LBL *£" 


“pspnson" KES “33 


té2el8l 
"fr KES 


16SeLBL *Ÿ" 
“8 @pon" REG 


{7T4LEL 18 


"QuuUUuur AE “95 


feReLEL AE" 
rHt_B" RE9 


1834L8L “ae” 
“êoe 
1864LEL 

"ét 


gg 


1894181 
“(aacû" 


1924LBL 
"pit" 


1954EL 
“BP 


Mars-Avril 


1987 


ER4eLBL 4 
kë REG *99" 


2AT4LEL A4 
-p 
a" REG 99" 


SiReLEL "4" 
“feY4g * KED "99° 


2LRLEL “1 
"arr 


2169LEL *2* 
REQ 99" 


222+L8L 4" 
“ga$o" KE 


225+L8L *5" 
“usa XEQ 


22ReLBL “6” 
"Eu 
fée ED "32" 


23eLBL “7” 
"Ba a" RER *99" 


az4eLBL *£" 
"un" * REG 99" 


exretBi “9° 
“Gyag" * REC “93 


24felEi “+ 
“A Ras" RER 729" 


243 *-" 
“feet 
++ REG “97 


252eLEL 
“ere 
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261eLBL “> 
“gg xxx" NEO "99" 








264eLBL >=" 
“parer KEG "99" 







267eLBL “{=" 
“Ottlag" KEG "99" 







274eLBL "7?" 
“Ron * KEG "99" 






274LBL “4” 
“Os * XEQ "95" 






276eLBL 48 
"ÿx 
+" KEQ 99" 







2794LBL "E 
“Ogar" XEG 99" 





2826LBL 41 
“Qs$tue" XER 99" 






285eLBL 42 
"BBx” 
+ REG 997 







288eLBL 43 
“Gaggg'" KEQ "99" 







2914LBL 44 
“Bass * XEG "99" 






294+LBL 45 
“QvaHa” XER *99" 






297+LBL 46 
“Gv0x8" XEQ *99" 







3806LBL 47 
-£ 

+ 

x” KEQ *99" 






3826LBL 48 
gp" * KEQ 99" 





386+LBL 49 
“Qe"xxe" KEQ 99" 






399eLBL 54 
“Gaa"D" KEQ "99" 







3126LBL 51 
“8H°Ge" XED *99" 





315eLBL 52 
“84$+e" XEQ “99° 








k 









3244BL 55 
"Q (Ole KES "99" 





327eLBL 56 
"ga" KEQ "33" 


338eLBL 85 
“gag mr XEG “99° 


3334LBL Ré 
“Qoag x" KEG *99” 


336eLBL 87 
“8888 Au” HEO 99" 


339eLBL 08 
“BAca888" XEB "29" 


3426LBL 09 
+84)" * XEQ “99” 


3456LBL 35 
“Ar” KE “99° 


348eLBL 36 
“Qu +* XEO "99" 


351eL8L 37 
"Br" YEN "99" 


354eLBL 38 
“82” XEQ 99" 


357+LBL 39 
“Orrxsere KEQ 99" 


36+LBL 37 
“fosse” XER "99" 


3634LBL 58 
“BC-8" KEG “99 


366+LBL 59 
“ga)gx" XEG “99 


3694LBL 68 
“Ale” KEG "99" 


3724LBL 61 
@* XxEQ "99" 


375eLBL 62 
“Goesxlé" RER "95" 


3786LBL 63 
“Rosorga RER *99* 


181eLBL 64 
"Ames" KEG "99" 





318LBL 53 
“8 A/e" XER *99" 









384eLBL 65 
“fA'é6++" KEB 99" 





3216LBL 54 
“8c/>* XEQ “99” 








387eLBL 66 
“0 Réoas” RER 99" 


CAFACTERES 


Li 
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398eLBL 67 
“ABloas" XEC *99* 


393eLBL 68 
"grxPyg" RES "99" 


3966LBL 69 
“gg"Ty" KEG “997 


399+LBL 74 
“Boe+xa)" XEU 99" 


A4B2LEL 71 
Oé+ss" XEB "99" 


4a5eLBL 72 
“Bees” XEG "99" 


498eLBL 73 


"8 
++ XER “99° 
411eLBL 74 


“8 ‘a XEQ "99" 


4i4elBl 75 
“8 eva” XEG "99" 


417eLBL 76 
“ARéea" KEG 99" 


428eLBL 77 
“Bañ$Gea” XEB *99" 


4236LBL 78 
-Qsocp$" XEC *99" 


426eLBL “+-" 
ea" EG "32" 


429eLBL 79 
“QUII$H" XEQ 99" 


432+LBL 88 
“$looo" XEQ 99" 


435eLBL 81 
#t* XEQ "99" 


4396L8L 82 
“OyxGr(* XEC "99" 


441eLBL 83 
“Quog" 


443+LBL *99" 

RCL CO ACSPEC PRBUF 
CLX FS$? 41 RCLL 
SKPCOL STOP END 





1987 





CARACT = 315 REGISTRES. 


LEL'CARACT 
LELTTAE 
LEL" 
LBL'K 
LBL'L 
LELTH 
LELTH 
LEL'0 
LEL'P 
LEL'Q 
LEL'TR 
LBL'S 
LBL'T 
LBL'U 
LELTY 
LELTH 
LELTR 
LBL'Y 
LEL'2 
LELTAE 
LEL'ae 
LEL'0e 
LBLTYX 
LBL"$ 
LBLT4 
LEL'1 
LBLTe 
LBLT3 
LEL'4 
LBL'E 
LEL T6 
LBL'7 
LEL'8 
LBL"9 
LBL'+ 
LBLT- 
LL 
LBLT/ 
LBL'= 
LELT4 
LEL'< 
LBL' 





LBt'é= 

LBL'? 

LBL'4 

LBL'E 

EBUTE= 

LBL"99 

END 2205 BYTES 
























+ CAFACTERES 4 


Lignes synthétiques 





Ligne : xa é Code Déciml : 




























































XEQ"99" 1E F2 89 39 30,242,57,57. 
@13 F7 11 06 OF F8 30 60 BE 247,17, 6, 15, 248, 48, 96, 190. 
016 F7 11 FA OF E6 ©F 80 00 247,17,250, 15, 232, 15, 128, 0. 
019 F7 10 FE @C 17 FO 60 BF 247, 16,254, 12, 23, 240, 96, 191. 
e22 F7 10 FE OC 18 FE 40 81 247,16, 254,12, 24, 238, 64, 129. 
025 F7 10 FA 08 10 20 60 BE 247, 16, 250, 8, 16, 32, 96, 190. 
028 F7 10 FA 08 10 2F 80 00 247,16, 250,8, 16, 47, 128, 0. 
031 F7 10 FE 14 28 50 A1 3F 247, 16, 254, 20, 40, 80, 161, 63. 
034 F7 11 FA 0C 1F 33 40 40 247, 17,250, 12, 30, 51, 160, 64. 
037 F7 11 FC 08 17 E0 40 FF 247,17, 252,8, 23,224, 64, 255. 
040 F7 10 F8 0B F8 2F 80 00 247,16, 248, 11,248, 47, 128,0. 
043 F7 10 F8 OB F8 2F 80 78 247,16, 248, 11,248, 47, 128, 120. 
046 F7 10 F8 0B F8 2F 80 0F 247, 16,248, 11,248, 47, 128,15. 
049 F7 10 F8 O0B F8 2F 91 1C 247,16, 248, 11,248, 47, 145, 28. 
052 F7 10 04 08 17 E0 40 FF 247, 16,4,8,23,224, 64, 255. 
055 F7 10 10 20 43 F1 52 18 247, 16, 16, 32, 67, 225, 50, 24. 
058 F7 11 FA ©F 90 20 70 9F 247, 17,250, 15, 144, 32, 112,158. 
061 F7 11 F2 07 E8 30 7F 00 247,17, 242, 7,232, 48,127, 0. 
064 F7 11 06 ©C 1F FO 60 C1 247,17, 6, 12,31, 240, 96, 193. 
067 F7 11 06 OA 33 AO 40 81 247, 17,6, 10,51, 160, 64, 129. 
e7e F7 10 F8 40 81 02 04 5E 247,16, 248,64, 129, 2,4, 62. 
073 F7 10 F8 40 81 03 00 08 247, 16, 248, 64, 129, 3,0, 8. 
e76 F7 10 F2 14 18 10 20 40 247, 16,242, 20, 24, 16,32, 64. 
@79 F7 10 38 89 02 04 00 10 247,16, 56,137, 2,4, 0,16. 
e82 F7 10 88 90 AO C2 89 22 247,16, 136, 144, 166, 194, 137, 34. 
e85 F7 10 88 90 E2 48 81 02 247, 16,136, 144, 226, 72,129, 2. 

* 088 F7 11 F8 10 20 40 81 02. 247, 17,248, 16, 82,64, 129,2. 
091 F7 10 F8 40 81 02 04 0E 247, 16, 248, 64, 129, 2, 4, 14. 
094 F7 11 06 OC 19 32 64 E3 247,17, 6, 12, 25,50, 106,227. 
097 F7 11 06 OC 99 32 5B 00 247, 17,6, 12, 153, 50, 91, 0. 
100 F7 11 07 OD 19 31 61 C1 247,17,7,13,25,49, 97, 198. 
103 F7 11 @A 14 28 51 9D 00 247,17, 10,20, 40, 81,157, 0. 
106 F7 10 FA OC 18 30 60 BE 247, 16,250, 12, 24, 48, 96, 190. 
109 F7 10 F2 14 28 50 9E 00 247, 16, 242, 20, 40, 80, 158, 0. 
112 F7 10 04 08 17 F0 60 BF 247, 16,4, 8, 23, 240, 96, 191. 
115 F7 10 08 13 A8 DO 9F 00 247, 16,8, 19, 168, 208, 159, 0. 
118 F7 11 79 ©D 19 30 60 BE 247,17, 121, 13,25, 48,96, 190. 
121 F7 11 81 02 E6 28 5F 00 247,17, 129, 2, 230, 40,95, 0. 
124 F7 10 84 88 97 F0 60 BF 247, 16,132, 136,151, 240, 96, 191. 
127 F7 10 04 08 18 38 CE 80 247, 16, 4, 8, 24, 56, 206, 128. 
130 F7 10 FA OC 07 CO 60 BE 247, 16, 250, 12, 7, 192, 96, 190. 
133 F7 10 FE 03 CO 40 9F 00 247, 16, 254, 3, 192, 64, 158, 0. 
136 F7 10 20 40 81 02 04 7F 247,16, 32,64, 129, 2, 4,127. 
139 F7 10 71 10 20 40 83 82 247, 16, 113, 16, 32, 64, 131, 130. 
142 F7 10 FA OC 18 30 60 C1 247, 16,250, 12, 24, 48, 96, 193. 
145 F7 10 B9 8A 14 28 50 80 247, 16, 185, 132, 20, 40, 80, 128. 
148 F7 10 20 41 42 88 AO C1 247, 16, 32,65, 66, 136, 160, 193. 
151 F7 10 20 A2 28 30 60 80 247, 16, 32, 162, 40, 48, 96, 128. 
154 F7 11 07 1D 59 32 60 C1 247, 17, 7, 29, 89,50, 96, 193. 
157 F7 10 DA 4C 99 30 60 80 247, 16, 218, 76, 153, 48, 96, 128. 
160 F7 11 05 11 41 05 11 41 247,17,5,17,65,5, 17,65. 
163 F7 11 8C AO 82 88 40 80 247,17, 140, 160,130, 136, 160, 128. 
166 F7 10 20 40 81 05 11 41 247, 16, 32,64, 129,5, 17,65. 
169 F7 10 0C 20 82 88 AO 80 247, 16, 12, 32, 130, 136, 160, 128. 
172 F7 11 F8 10 41 @4 10 3F 247,17, 248, 16,65, 4, 16,63. 
175 F7 10 F8 10 41 04 OF 80 247, 16,248, 16, 65, 4, 15, 128. 
178 F7 11 55 55 55 55 55 55 247,17,85,85, 85, 85, 85, 85. 


181 F7 11 247,17, 244, 40, 95, 225, 66, 254. 
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CS © D) 1 1) 1 me me 
SR Re © GO D © D US 9 4 


HS À À Q 


D D tb & © 1 to tb 5 li to 5 1 ty 





tb 15 & à GW & © Et 


b DS à S $S $S LS D Nr S HS UT 
LRSSSSSOSSOTORTSTOUSS 
X & 5 © W 


S 


Q À ba 6 Q À S NS S S S 
SOEHSBESSRRSSRSESRSESENHUS SENS 


FE 
30 


S & $S & h N CG Co 


S À D 
œ1 
© 


8 
B4 
28 
89 
CC 
08 


2 


06 
oc 
20 
ec 
22 
13 
91 
89 
40 
43 


A 
2 


E3 
08 
04 
10 
04 
@F 
40 
20 


84 
21 
oo 
20 
91 
Fo 


S D © 


Re De $ 7 
D 3 0 +) © (+3 © © 


5 à © À & S 
DER Sen 9 818 


O © » 
5 © $S 


w 


ke 
S œ 


22 
14 
47 


0 
2 


1F 
82 
c8 
22 


2 


81 
E9 
28 
EF 
10 
08 
1e 
28 
99 
82 
82 
82 
98 
01 
2e 
43 
29 
83 





E8 


o6 & 


9 
28 
24 
@F 
E@ 
28 
po 
Dè 


D 
e 


F0 


7 
7 


24 
1F 
1F 
41 

02 
21 

04 
10 
82 
2D 
01 

24 
2F 
30 
92 
48 
C2 
E@ 
Fa 
02 
91 

47 
24 
2F 


0 
£ 


30 
EF 
20 
10 


2 


1è 
3E 
88 
88 
OF 
C2 
01 
(74 
E1 
94 
88 





C8 
04 


0 


21 
10 
20 
08 
80 
4e 
77 
E@ 
60 
6A 
84 


D 


82 
68 
02 


2 


F0 
7F 
A0 
84 
51 
8E 
49 
20 
41 
10 
68 
8e 
80 
82 
44 
01 
82 


D 
2 


30 
91 





Ês 







LG, LL 

















24 16, 111,258, 141,192, @. 
247,17, 135, 16, 65, 4, 17,195. 
247, 16,33, 252, 135, 194, 127, 8. 
247,16, 80, 167, 242, 159, 202, 20. 
247, 16,32, 226, 169, 34, 4, 8. 
247,16, 32,64, 137,42, 142,8. 

08 247, 16, 32, 130, 15, 282, 8, 8. 

08 247, 16, 82, 32, 47,224, 130, 8. 

BE 247, 16, 258, 28, 89, 52, 112, 190. 

98 247, 17,248, 195, 131,6, 15, 152. 

BE 247, 17,252, 8, 39, 144, 32, 190. 

7F 247,16, 250, 12, 7,8, 82, 127. 

18 247,16, 64, 135, 242, 36, 138, 24. 

FF 247,16,250, 12,8, 15, 192,255. 

3C 247,16, 250, 12,23,224, 65, 60. 

FF 247,16, 8, 32, 130,8, 32,255. 

BE 247, 16,250, 12, 23, 208, 96, 190. 

BE 247,16, 121,4, 15,208, 96, 190. 

08 247,16, 32, 64, 143, 226, 4, 8. 

00 247,16, 0,0,15,224, 0,0. 

49 247,17,37, 81,207, 231, 21, 73. 

40 247,16,4,16, 65,4, 16,64. 

eo 247, 16, 0, 7,240, 31,192, 0. 

2 247,16, 8,39, 241,31, 200, 32. 

10 247,16, 64,64, 64,65, 4, 16. 

e2 247, 16,8, 82,130, 2, 2,2. 

e1 247,16, 36, 146, 65,1,1,1. 

40 247,17, 83,33, 33, 4, 10, 64. 

BE 247,16, 32, 0, 134, 16, 32, 190. 

20 247,17, 252, 136, 160, 130, 8, 32. 

eo 247,16, 1,180, 153,45, 128, 0. 

FF 247,17,254,8, 97, 1,160, 255. 

00 247,17, 184,137, 18, 86, 119,0. 

BE 247,16,5,204, 120, 47, 224, 190. 

FF 247,16, 4, 8, 16, 48, 96, 255. 

2 247,16, 113, 18, 34, 146, 106, 162. 

08 247, 17,254, 12, 20, 72, 138, 8. 

38 247,16, 250, 12,23, 194,2, 56. 

78 247, 17,224, 32,35, 224, 150, 120. 

BE 247,16, 250, 12, 31,240, 06, 190. 

03 247,17, 14,34, 130, 2, 2,3. 

44 247,16, 4,19, 200, 145, 34, 68. 

00 247,16, 72,145, 54, 71,240, 0. 

eo 247,16,56, 137, 18, 36,127, 0. 

eo 247,16, 32, 64, 129, 47, 160, ©. 

3E 247, 16,248, 67,233, 47, 132, 62. 

1C 247,17, 220, 162, 40, 48, 81, 28. 

e8 247,16, 32,227, 239, 239, 142, 8. 

8F 247,16, 60, 8, 16, 32, 64, 143. 

78 247,17, 226, 4, 8, 16, 32, 120. 

o4 247, 16, 16, 16, 16, 32, 65, 4. 

18 247, 16,65, 4, 8, 16, 16, 16. 

BE 247,16, 248, 15, 153, 62, 96, 190. 

7F 247,16, 136, 160, 130, 136, 128, 127. 

7F 247,16, 12, 32, 130, 136, 128, 127. 

7F 247, 16,248, 32, 130, 15, 128, 127. 

86 247,16, 184, 138, 152, 194, 68, 134. 

o1 247,17,1,1,1,1,1,1. 

2 247, 16, 0, 0,0, 0,130, 130. 

38 247, 16,254, 32, 67, 225, 84, 56. 

78 247,16, 48, 145, 41, 148,48, 120. 

1C 247,16, 33,240, 131, 136, 145, 28. 

CARACTERESZS 4 
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Code Hexadéciml : Code _Décimal : 


373 F7 10 40 43 E8 20 40 BE 247, 16,64, 67,232, 82, 64, 190. 
376 F7 10 00 00 00 02 49 12 247,16, 0,0,0,2,73,18. 
379 F7 10 00 00 00 01 04 08 247,16,0,0,0,1,4,8. 
382 F7 10 10 40 80 00 00 00 247,16, 16,64, 128,0, 0,0. 
385 F7 10 30 60 00 00 00 00 247, 16,48, 96, 0,0,0,0. 
388 F7 10 20 40 00 00 04 08 247, 16, 82, 64, 0, 0,4, 8. 
391 F7 10 10 40 80 00 04 08 247,16, 16, 64, 128, 0, 4, 8. 
394 F7 10 60 01 83 06 OC 18 247,16, 96, 1, 131,6, 12, 24. 
397 F7 10 30 60 C1 83 06 @C 247,16, 48, 96, 193, 131,6, 12. 
400 F7 10 00 00 00 02 04 5E 247,16, 0,0, 0,2,4, 62. 
403 F7 11 FF F8 00 00 00 00 247,17,255, 248, 0,0,0,0. 
406 F7 10 00 00 OF EF 8E 08 247, 16, 0, 0, 15,239, 142, 8. 
409 F7 10 20 E3 EF F0 00 00 247,16, 32,227, 239, 224, 0,0. 
412 F7 10 20 60 El F3 86 08 247, 16, 32, 96, 225, 227, 134, 8. 
415 F7 10 20 C3 8F ©E ©0C 08 247,16, 32, 195, 143, 14, 12, 8. 
418 F7 10 F8 40 81 03 00 14 247, 16, 248, 64, 129, 3, 0, 20. 
421 F7 10 71 12 24 47 00 14 247,16, 113,18, 36, 71, 0, 20. 
424 F7 11 73 14 28 50 80 24 247, 17,115, 20, 40, 80, 128, 36. 
427 F7 10 F8 00 81 OF 84 08 247,16, 248, 0, 129, 15, 132, 8. 
430 F? 11 21 21 21 24 92 48 247,17, 83, 33,83, 36, 146, 72. 
433 F7 10 24 92 49 09 09 09 247,16, 36, 146, 73,9, 9, 9. 
436 F7 11 FA OF E8 OF 80 OF 247,17,250, 15,232, 15, 128, 15. 
- 439 F7 10 79 O1 C4 47 01 3C 247,16, 121,1,196, 71,1,60. 
442 F7 11 FE OC 18 30 60 FF 247, 17,254, 12, 24,48, 96, 255. 
443 Ce 00 F3 00 39 39 192, 0,243, 0,57,57. 
444 90 75 144,117 


+ CARACTERES 4 


Tabulation : XEQ "TAB" ............ TAB ? <1-77 


Répondre par une valeur comprise entre 1 et 77 (avec Flag 12 levé = double largeur). 

Le caractère sera alors imprimé à la colonne spécifiée par vous. 

Lorsque le Flag 1 est levé, la tabulation reste constante pour tous les caractères. 
Losque le Flag 1 est abaissé, la tabulation est uniquement valable pour le caractère 
imprimé. 

Lorsque le LBL TAB n'est pas exécuté, tous les caractères sont imprimés à gauche du 


papier. 


Remarque : tous les caractères peuvent étre imprimés avec Ou Sans Flag 12. 
La qualité sera bien entendu meilleure en double largeur ! 


ExemFiles : HF-41c Fersaonal COomMpFu ter ! 


Choix N.1:40 60 CO . TemrF. 














PPC-T No13 Mars-Avril 1987 Page 11 












IDENTITES 


JACQUEL Claude 
4 grande rue 
Marchaux 

25 640 Roulans 


IDENTITES REMARQUABLES A LA 
PUISSANCE...Nieme 


Une fois les 133 octets de ce programme chargés: 
- XEQ (A+B)N 
ou 
- XEQ (A-B)AN 
Entrer le nombre N: l'exposant, 


SF 02 







































































































O1 LBL '(A-B)AN 


Mars-Avril 


PPC-T No13 


FC 03 


Par l'intermédiaire de MR, j'en profite pour te remercier, 
Eric MONSENEGO,de tes tuyaux "hard". 


7 


1987 






LBL *(A+B)/N ARCL X 

CLRG RCL 00 

N= 1 30 X=0? 

PROMPT GTO O1 

STO O1 ‘+ 41 

FIX O ARCL 00 

LBL 03 RCL 02 
10 FC)C 03 X=-0? 

SF 03 GTO 02 

Fc? 02 LBL O1 

SF 03: ‘t B/ 

RCL O1 ARCL 02 

STO 00 40 LBL 02 

FACT 1 

RCL 02 ST+ 02 

ST— 00 AVIEW ave Tuelhem ef 

FACT RCL 00 RENÉ 
20 RCL 00 PSE 

FACT X40? 

7 se 03 unir Fins el Brmat d'Hilop 

FS? 03 CF 02} _»avec le XF: 

‘+ CF 03/ XOF 

FIX 9 
END 
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aéré var LOCATOR TER 


11, rue Darquié 
31000 TOULOUSE 


tél. 61522003 & TOLOC 


T 716 


Dans MR 13, je présentais aux radio-amateurs, la 
méthode, et l'intérêt, de la conversion de coordonnées 
géographiques ( longitude et latitude ), en un bloc de 
6 caractères, baptisé LOCATOR. Un PRG "lourd" était ad- 
joint à cette présentation, tournant sur HP 41C ou Cv. 

Dans MR 15, avec l'aide du module X-F, le PRGM 
LOCATOR-BIS remplaçait avantageusement ( en octets ) le 
PRGM initial. 

Je concluerai mes investigations sur le sujet, en 
présentant ci-dessous: 

- a/ IOCATOR-TER, encore plus compact ( i1 “tient” 
sur un seul ticket magnétique ), sans affaiblissement de 
ses performances, 

- b/ TO-IOCATOR, PRGM inverse , ui permet, à la 
réception de coordonnées géographiques ( ou, à l'estima- 
tion des siennes propres ! ), d'afficher sur le display 
le LOCATOR correspondant. La complication,surmontée, tient 
aux conventions de signes ( négatif pour longitude Ouest 
et/ou latitude Sud ). 11 "tient ” également sur un ticket- 


73 ( amitiés ) à tous, OM ou pas! 















BIeLBL "TE j 

BIeLBL “LOCAT- ELRG ELA Fix 2 a de 
CLRG FIXE ADK “LONGITURET"  PROMPT M 
“LOCATOR?  PROMPT STR O1 x 
AVIEN ATOK STO 8! STO 67 7 
ATOX STO #2 ATOX 48 PROMPT re 
- S100S RIDX 48 - KED 97 35 
STO 96 ATK STO 83 RCL 97 28 si 
ATOX ST 84 AOFF STD 89 74 ne 
KED 81 RL 87 STD &f RL A1 48? XEO ? AT. NE DR SE 
RCL 42 STD BI XE0 Et RL QB TDR RCL AS 25 on 
RCL 87 2 / STD 93 + 5083 PCLES !8 
REL 63 STO BI EDP 110 74 + 
REL 97 ,75 ENIERT 185 STO 8A RCL A2 #cg” 
14 75 + SOIR KEQ AZ RL 88 NTDR 
REL 84 STO A1 ED 8! RCL IA 16 + STO 18 
RCL 87 375 ENTER RCL 47 29 FRE IA 
188 / + :375 + # INT STOII 48 + 
STD 11 RELAS 2 + #TOR RCL 68 18 / FR 
STD 85 REL BE à 18 + INT STD 12? 48 
RCL 18 + HMS “LONG=" + NTOA ROL A7 ROL 00 
ARCL # “HDEG* AVIEU - RL 2 + - HR 
STOP REL 89 RCL 8 + 109333233 / 65 + 
REL 11 + HMS “LAT=" . KTOR RL 88 RCL 18 
AREL X “HDER- VIEN REL 12 - BE # 2,5 
RTK 2 STONZ FR :5 

NY? EG 94 RL 13 
B4LBL 8 65 + KTOR AVIEN TN 
REL 81 28 + 1482 - 
ST9 97 PIN END. 1O74LEL A1 





RCI. @4 {8@ + SU h7 
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HP-75 
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EXTENSION 


k. Houdayer. T6 Aulpalx De HIS 
3 Lotimeueut “Les Aailfoun ” 

ASSAS 4 

534820 TEYRAN 


che eau .Daurel 
V au fawens eut des Auchiau 
d'eteution pu Vimeafe HP3S qu ÿ vu 
pe [ne a @ pal eatin clau wuuo Av 
Low , RR uuphek uuy fuck an ua Vlauue HP 


deux & dure x deu 4 vlan” 

dd C'outu NAR | cancer Les 

parauefe, Met {ues unuel avet cU Jai 

seodru (ex exfeu eut es hat de value Cou 

d'un afwleweut ef d'ou AU UM ) - J'véage 

cb Lu cruplels A te Cle a Dh 
biu ouicdonet 
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FONCTION D'EXTENSION 








RHoudoyen T26 





CALCULS DE RENTABILITE: IFR 


CETTE FONCTION COMPLETE LA FONCTION ?IRR’» DONNEE DANS 
LE MANUEL VISICALC HP75, EN FOURNISSANT AVEC LA MEME PLACE MEMOIRE 
Ç1 CARTE MAGNETIQUE), LES PARAMETRES FINANCIERS DE MULTIPLAN 2. 





TRRG Ale AIO 110 | FNTA 2 Hal 
Fe 


FLUX NET DE TRESORERIE ACTUALISE (OU VALEUR ACTUELLE 
NETTE) D'UNE SERIE DE FLUX CA1...R103, LE TAUX D'ACTURLISATION ETANT 
SITUE DANS LA CELLULE A11. 








IRRÇ2,A1...R10,81...8102 | TDR “7. FA = Fin 


ñ Htc)" 

TAUX DIFFERENTIEL DE RENTABILITE COU TAUX D'EQUIVALENCE > 
ENTRE DEUX SERIES DIFFERENTES DE FLUX DE TRÉSORERIE, C2 PROJETS PAR 
EXEMPLE >. 











IRRC3,A1...A102 


4 TEL QUE FNTA=© 





TAUX INTERNE DE RENTABILITE €COU TAUX DE RENDEMENT 
INTERNE) D'UN PROJET. C’EST LE PARAMETRE INITIAL DONT LE CALCUL EST 
FOURNI PAR H.P..C'EST LE TAUX D’ACTUALISATION QUI REND NUL LE FLUX 
NET DE TRESORERIE ACTUALISE. LE PROGRAMME DONNERA *ERREUR’ LORSQU'IL 
N'Y A PAS DE ‘TIR’ POSITIF OU LORSQU'IL Ÿ EN A PLUSIEURS 





IRRC4,A1...R10,RA11 





FLUX DIFFERENTIEL. IL S’AGIT D'UN PARAMETRE INEDIT QUI 
DONNE LA VARIATION DE LIQUIDITE ANNUELLE D'UNE SERIE DE FLUX DE 
TRESORERIE (A1...A10> D'UN PROJET, NECESSAIRE POUR QUE LE TIR’ AIT 
LA VALEUR SOUHAITEE CEN A112. LS U+c)T 2 


Ca CueE A CHENE 

HE Da ÉARIT 
TAUX DE RENTABILITE GLOBALE. C'EST LE TIR‘ D’UNE SERIE 

DE FLUX (Cn EN A1...A192 POUR LESQUELS ON PRESUPPOSE UN PLACEMENT 

SUR LA DUREE D'ETUDE AU TAUX INDIQUE Ct EN A11). 





IRRCS,A1...R18,A112 


TRG:1 TEL QUE 





1092 
1022 
1450 
1510 
1530 
1598 
1595 
1399 
1690 
1618 
1633 
1640 
1644 
1645 
1646 
1647 
1643 
1650 
1670 
1703 
1719 
1730 
1748 
1750 
1768 
1800 
1320 
1838 
1849 
1850 
1889 
1830 
1928 
1938 
1948 
1938 
2800 
2020 
2030 
2048 
2052 
2068 
2118 


! IRR H.F. MODIF R. HOUDAYER 

1 IRRCFHTAI-TDR2-TIR3-FD4-TRGS > 

OPTION BASE 1 @ DEFAULT OFF @ DIM C(255) 

ASSIGN 4 255 TO ’visidata’ © M=25 @ E=1k10"-6 @ l{=P1/100 © I=8 
RERD # 255,0 ; N,N1 @ IF N#Hi DR N>255 THEN END 

RERD 4 255 ; L @ NeN-1 @ FOR J=i TO N @ READ # 255 ; CCJ) @ NEX 
ON L GOTO 1688,1649, 1650, 1620, 1645 

{ FNTA & FD 

NeN-{ @ Wel+C(N+12/108 @ GOSUB 2208 Œ IF Lei THEN 2110 
AS AE @ GOTO 2119 

! TDR 

NeN/2 @ FOR J=l TO N @ CCJ)mæCC J>-CCN+J) @ NEXT J @ GoTO 1898 
! TRG 

CENI2CCN3/108 @ NeN-i @ FOR Jel TO N @ IF CCJ>Cm8 THEN 1647 
ImI+CC JDKC1+CCN+1 DD TCN-J) B CC Je 

NEXT J @ CCNDmCCND+I @ GOTO 1838 

{ TIR 

Si=Q @ FOR J=l TO N @ SimSi+CCJ> @ IF S1 THEN 1718 
NEXT J @ END 

1 DETECTIONS D'ANOMALIES 

S2=51 @ FOR JeJ+i TO N @ S2=S2+0 J) 

IF NOT 52 THEN 1750 

1F SGNCS1D#SGNCS2) THEN 1808 

NEXT J 

1F S2=Q THEN IQ @ GOTO 2118 ELSE END 

S1=S2 @ FOR J=J+1 TO N-1 @ Si=Si+CC JD 

1F S1=#@ THEN 1849 

1F SGNCS22#SGNCS1) THEN END 

HEXT J 

1F S1=@ THEN 1=Q @ GOTO 2110 

! CALCUL DU TIR 

Wei+11 @ GOSUB 2008 € K=1 

IF ABS(LOGCP1/<-P2)23CE THEN I=11*198 @ GOTO 2110 
HaWkCC-P23/P12"C1/CHKCP3/P1-P4/P2223 

JisW-1 @ GOSUB 2000 

KmK+i @ IF K>mX THEN END ELSE GOTO 1928 

F1,P2,P3,P4=9 @ FOR Je TO N 

IF CCJ)<O THEN An@ @ B=CCJ) ELSE AmCCJ) @ Be@ 
GeW"C-J+1) @ GieWTC-JDKC1-J) 

PimPi+ARxG @ P2=P2+BXG @ P3=P3+AXG1 © P4mP4+BxG1 

NEXT J 

I=Pi+P2 @ RETURN 

PRINT # 255,8 : I 


T J 
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No13 


PPC-T 


STATISTIQUE <> ARIABLES > 


CETTE FONCTION PERMET LE CALCUL A FRRTIR D'UNE CELLULE 
DE VISICALC CAVEC LE MODULE MAT) DES PAFAMETRES SUIVANTS 


VARIANCE RESIDUELLE. C'EST LA MOYENNE DU CARRE DES 
ECRRTS ENTRE CA1...R10) ET (B1...B19), PAR EXEMPLE LES DONHEES ET LE 


MODELE. 
po dora _ : à 
VARC3,A1...19,B1...8100 ZGi-r](y-4] 
n 


COYARIANCE DES DEUX DISTRIBUTIONS 





VRRC4,R1...R19,B1...B12) Z Ge-x)(ye-5) 
2 (x 
COEFFICIENT DE REGRESSION ENTRE UNE VARIABLE EXPLICATIVE 
.R18) ET UNE VARIABLE EXPLIQUEE ‘y’ <B1...B10). 


R19,B1..,B1@) 


race) dl 


Z (ye-ÿ# 
COEFFICIENT DE DETERMINATION, CALCULE ICI R PARTIR OÙ 
RAPPORT ENTRE VARIANCE EXPLIQUEE ET VARIANCE TOTALE. C'EST AUSSI LE 
CARRE DU COEFFICIENT DE CORRELATION. 
1 de 
VAR(6,R1,B1...B10) TR 


VARIANCE EXPLIQUEE, LA MOYENNE GENERALE ETANT. PLACEE 
DANS LR CELLULE R1 (C'EST EN PRINCIPE AUSSI LA MOYENNE DES Ÿ4) 


.K12, V1. 


EXPRIME 


geo ! 
1900 
1905 
1005 
1919 
1028 
@39 
1040 
1052 
1993 
1100 
1199 
1208 
1299 
1300 
1399 
1400 
1433 
1508 
1519 
1533 
1622 
1618 
1693 
1708 
1719 
1729 
1999 
2822 
2033 
21928 
3033 
3108 
3119 
3128 
3132 
31993 
3209 
32198 
325 

3388 
3310 
3328 
3330 
3348 
4002 


YBR / Re HOUDAYER 
DAV T-2 VA R=S COV-4 & 

1 S RR-6 V.E-7R 

OPTION ER E 1 

CEFAULT OFF @ ASSIGH 4 255 TO "Y1SIOATR" 

READ # 25,0 ; H,N 

DIM 2(60),Z1(682;X°68) 

RERD # 295 ; U @ HeN-1 

ON U GOTO 1109,1200,1300, 1400, 1522, 1602. 

| VARIANCE €1,%1...X10 

GOSUB 3108 @ GOTO 4000 

| VARIANCE RESIDUELLE (2,1... V1: V1... 010) 

GOSUB 3200 @ GOTO 4220 

! COVARIANCE <3,X1..,M1@, 1... 7102 

GOSUS 3308 @ Y1=Y2 @ COTO 4808 

| COEFF REGRESSION C4,H1..,X10, V1, V1 

GOEUB 3328 € GOSUB 3119 @ Y1=Y2/Y1 @ GOJO 4000 

| COEFF DETERMINATION €5,v1...710,01...910 

GOSUB 2180 @ GOSUB 3112 ®& Y3=v1 

MAT Z=x @ GOSUB 9110 @ Yi=y1/13.R GOTO 400 

! VARIANCE EXPLIQUEE (6,7,91...710 

RERD # 255 ; X1 @ N=l-1 

GOSUB 2006 ® GUSUE 3128 @ GOTO 4308 

! COEF CORRELATION (7,x1.,,X1@,71...Y10 

GOSUB 2188 ® K1aSUMCMI/H @ MAT ZimCX1 @ MAT Zizx-21 
Y1=FNORMCZ1) @ Ya=Y1"2/N 

GOSUB 3119 @ Y2=Y34Y1 © GOSUB 3310 E Yi=Y2/Y3".5 R COTO 4200 
| LECTURE SIMPLE 

REDIM ZCN),ZICND, CN) @ RE > @ RETURN 
! LECTURE DOUBLE 

N=N/2 @ REDIM ZCN2,21 > @ RETURN 
1 SP VAR 

GOSUB 2088 

KI SSUMCZI/N 

MAT Zi=CK19 @ MAT Zi=Z-21 

YI=FNORMCZL) © Y{mY1T2/N @ RETURN 

1 SP VAR. RES. 

GOSUE 2108 

MAT Z122-* @ GOTO 3130 

| S/P COV 

GOSUE 2120 

XBMSUMCZI/N @ KIRSUMCAI/N P AT Z1=ZER 

FOR I={ TO N @ 2161322 12-K0 KCID-K1 
ZIC1DmZ1CIDKNCID @ VemY24ZICI 

NEXT I @ Y2=Y2/N & RETURN 

PRINT # 295,9 ; vi @ EHD 
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BEEPLEX 


J.Y. HERVE (T668) 


Ce lex de 145 octets complète la fonction BEEP de la HP-75 en 
procurant deux nouveaux mots clés permettant de générer des 
séquences sonores et des alarmes. 


pres H$,N 


| 


Cette fonction répète N fois la séquence de son générée par la 
chaîne H$. Chaque caractère de code C dans la chaîne H$ corres- 
pond à une fréquence telle que F = 28300 X (C+16). 


Le tableau en annexe donne la correspondance entre les fréquen- 
ces utilisées par BEEP, les notes de musique et les caractères 
alphanumériques que l'on peut y associer. La durée du son est 
fixée à 0.2 seconde par caractère. 


Exemple : NOISE "Oœai,4 


re 


ALARM A$,N 1 


Cette fonction permet d'émettre une des 10 alarmes sonores 
pré-programmées (0 € N € 9) accompagnée du message correspon- 
dant à la chaîne Af$. 


Les alarmes sont du type suivant : 

N = 0 : pas d'alarme N = 5 : alarme double 
N = 1: bip court N = 6 : sirène 

N = 2 : alarme simple N=7 idem alarme 2 
N = 3 : pin-pon N = 8 : idem alarme 4 
N = #4: tititi N 9 idem alarme 6 


Les alarmes 7 à 9 sont répétées automatiquement toutes les 
15 secondes environ : l'exécution du programme en cours ne sera 
interrompue que pendant l'émission de ces alarmes ; il se pour- 
suivra normalement entre chaque interruption. La répétition sera 
effective jusqu'à ce qu'une touche quelconque du clavier soit 
pressée. 


Exemple : ALARM "AU FEU !", 3 
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RÉLATIDNS SON = FREQUENCE 


La fonction BEEP est paramétrable en fréquence et en durée. La 
fonction NOISE, elle, est paramétrable en fréquence via des 
chaînes de caractères qui peuvent être répétées, la durée étant 
fixée à 0.2 seconde par caractère. 


Les relations entre notes de musique, fréquences et caractères 
sont donnés ci-après : si les résultats sonores ne sont pas 
exceptionnels, ils autorisent toutefois l'émission de quelques 
variations pseudo-musicales. 


CARACTERE COEFFICIENT 
NOTE FREQUENCE 
















128 
143.675 
161.27 
170.86 
191.783 
215,27 
241.632 







m8 IS I= 







u 1 



























® 


256 
287.35 
322.54 
341.719 
383.567 
430.539 
483.264 


512 
574.7 
645.08 
683.438 
767.133 
861.078 
966.527 


1024 


La fréquence peut être calculée par : 





Ps 128 # A * HR: 
et F = 28300X (C + 16) 


avec H = EXP (LOG(2)/ 12) et À et R donnés dans le tableau 
ci-dessus. 
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BEEPLEX lé Octets 








Eine 2 ; : Code £ Uhect 
LL, Pé&rsE 9D 4C AE 42 45 45 50 4C 45 58 20 67 00 DT 
2 O8 O0 OE O0 0 68 O0 4D 0 ZE ee OO! FE FE 
3  4E 4F 5 41 6i 17 SE 6D 21 A1 60 A 4H 


AC 51 40 1E AO D A8 o1 ! 











4  E4 06 6D 48 
& ‘CE @D 12 &C SEE GE SE C9 OA AN 
& 00 F4 3 06 E4 57 O6 46 Le 72 67 
Z 9E fi 8H CE 69 98 18 SO I de 
8 Ai SA SK 08 50 UE D7 VE Le 
 “É0 BE A 
10 4651 

10 TNPFUT "EGrii nm onmom "Us 

et LE À NU THEN 6e" RGES IX" 





10 CASE 


40 NOTISI 





AlsassanaaniauNANNSSUNENUNNINAIIEESNAEI 






ARR. RER t RAM REA RER 
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GO . 








| 
| 
LE ———— 








D EE re DEF ÉELTATION —— 


NT En SCD GE 

















“EG FREE: | 
ENRERE 
BE BE 
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PARIS, 


PHILE 


6, RU 
75006 


CAL 


PPE HEXILBROKNN 


E FURSTENBERG 
PARIS 


le 3 Janvier 1987 


Monsieur Jean-Daniel DODIN, 


MICRO-REVUE 
77, rue du Caagire, 
31100 Toulouse 


Cher Monsieur, 


Je me réfère à l'article CAL "Fonctions Calendrier des 
HP-11/15C", paru dans MICRO-REUUE No 15, page 60. 

En ce qui concerne le HP-11C, le programme ne peut pas 
tourner, car marque la liste des registres 7,8,9 où doiven 
étre stockées respectivement constantes 
30 ,6001 122,1 565,25, Jé vo envoie donc à nouveau un 
listing complet, accompagné de la description de l'emploi 
des registres. 














En outre, page 61, dans l'exemple 2, une erreur s'est 
glissée en dernière ligne. 


fu lieu de bafyiesmensessmnsnse ie (mardi) 
lire: ERFS Je tetes 


Si vous assurez la publication des prochains Journaux, 
je vous serais reconnaissant d'insérer ce rectificatif. 





ire 





En vous en remerciant, j prie de 
Cher Monsieur, à l'expression de mes sentimerits les 


Phibrone 


(PPO-T 6510 





meilleurs et les plus amicaux. 


Fhilippe Heilbronn 
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tSTO) I @03- 44 25 
FALL Q04- 43 35 
[STO] 4 @05- 44 4 
[Re] Q0Q6- 33 
CfIELBLI À @@7-42.21.11 
[GSB]1 @08- BL | 
[GTOI2 @03- 22 2 
[fIELBLI 1 @1@-42.21. 1 
CEEXI @11- 26 
4 @12- 4 
[/1 @13 1Q 
CENTER] @14- 36 
ÉGILENTI @15- 43 44 
{6701 6 Q16- 44 6 
F1 Q17- 30 
LEEX] @18- 26 
2 @193- 2 
[+] @20- 2Q 
[L'ENTERI @Z1- 36 
Qi ERES @22- 43 44 
[ENTER] @23- 36 
CRI] @24- 33 
Le] @25- 30 
CRCLI I @26- 45 25 
[+1 @27- 49 
CEEXI Q28- 26 
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[+] Q30- 20 
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[+] Q34- 40 
[ENTER] @35- 36 
[1/x] Q36- 15 
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[RCL] 4 Q593- 45 4 
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* LA 28 * 


La HP-28 est la dernière merveille mise sur le marché par HP. J'ai entrepris de me 
convertir à cette machine qui correspond assez bien à mes besoins actuels (n'ayez crainte, je ne 
me séparerai pas de ma HP-41). Vous pouvez vous reporter avec fruit à JPC (journal du Chapitre 
de Paris} et à Datafile (journal du club anglais, ‘voir éditorial) qui ont tous les deux publié 
des études fort intéressantes et complémentaires sur la HP-28. 

De mon coté, bien que n'ayant pas eu autant de temps que j'aurais voulu, j'ai commencé 
à utiliser la machine quotidiennement. 

Rappelons en deux mots ses caractéristiques : C'est essentiellement une calculatrice 
mathématique, avec pour seul périphérique une imprimante sans fil à infra-rouge. Elle coûte en- 
viron 2300 F (1200 F pour l'imprimante). Elle possède toutes les fonctions de la HP-15 et la 
plupart de celles de la HP-16. Quand à la présentation, j'espère que vous en avez une photo 
quelque part dans ce numéro. Elle se présente donc comme un portefeuille qui s'ouvre en montrant 
à gauche un clavier alphabétique et à droite une calculatrice classique avec un écran de 4 Mi 
gnes de 23 caractères. 


Passons à mes appréciations personnelles. 


Je tiens à mettre l'accent sur un point négligé des articles cités en référence. Cette 
calculatrice a été étudiée comme un ordinateur de table. J'ai appris par un article de son créa- 
teur (William Wickes, bien connu) que, sur le microprocesseur du HP-71 on avait d'abord écrit un 
système d'exploitation puis que, la forme matérielle de la machine déterminée par ailleurs, on 
avait écrit sur ce système d'exploitation un dialecte de LISP appelé RPL (Reverse Polish Lisp). 

La HP-28 est donc la première calculatrice au monde a posséder un langage de très haut 
niveau, bien plus puissant que le BASIC, fut-il le BASIC HP (n'en déplaise aux tenants du HP- 
11). Ce langage, à vrai dire, n'est pas d'une approche évidente et reste bien difficile à ex- 
ploiter dans un environnement mémoire aussi restreint (2000 octets en comptant large). Mais 
c'est lui qui donne à la HP-28 ses caractéristiques extraordinaires comme sa capacité à effec- 
tuer du calcul symbolique ou à donner le choix à l'utilisateur entre le calcul en notation polo- 
naise inverse à la 41 ou à l'aide d'expressions algébriques comme sur les machines BASIC. 

Si ce langage a le succès mérité, et nous verrons que ce n'est pas évident, cette ma- 
chine devrait être à la base d'une longue série de machines dont elle sera la moins puissante. 


Passons l'analyse. La HP-28 est relativement volumineuse, elle a des dimensions hau- 
teur et largeur un peu plus grandes que celles d'une HP-41, mais son épaisseur ne dépassant pas 
18 mm elle est plus à l'aise dans une poche que son illustre ancêtre. Le boîtier est, comme 
d'habitude chez HP, fabriqué dans un plastique d'excellente qualité et donne une impression de 
robustesse et de sérieux avec sa couleur brun foncé, pas tout à fait noire. La charnière à dou- 
ble articulation, qui permet de replier le volet sur l'arrière de la machine est d'aspect 
robuste. Cependant l'ensemble n'est pas aussi commode qu'il y parait et fonctionne mieux à plat 
sur une table qu'à la main. Quand on retourne le clavier alphabétique, non seulement ses touches 
ne sont plus accessibles alors qu'on en a besoin en permanence pour l'accès aux menus, mais on 
les presse par mégarde et cette position n'est donc guère viable plus de quelques instants. Par 
contre cette possibilité est un gage de résistance pour la charnière qui ne peut pas être mise 
en porte à faux. La meilleure position à la main est en général de laisser la charnière en posi- 
tion fermée en ouvrant le volet seulement grâce à la première articulation. Cela permet une bon- 
ne prise en main, mais les deux mains sont requises pour l'utilisation. D'ailleurs le catalogue 
d'EDUCALC contient plusieurs références de supports en bois qui ont été créés pour la HP-18 et 
peuvent servir fort bien pour la 28. 

Les touches numériques et de menu sont beige clair avec des gravures en noir (ou sans 
gravure pour les touches de menu), la grille de clavier gris clair, les autres touches gris fon- 
cé avec les gravures en blanc, la touche SHIFT est rouge bordeau ainsi que les inscriptions de 
la grille, c'est un peu tristounet mais très élégant. Au dessus des touches de menu, des in- 
scriptions en blanc correspondent au “menu curseur", en fait un menu d'édition avec les fonc- 
tions de déplacement du curseur dans les 4 directions, mais aussi l'insertion/remplacement et 
l'effacement. 

Les claviers ont à peu près la même hauteur, c'est à dire les deux tiers de la hauteur 
de la machine et ont même épaisseur. Les touches sont fermes sans être dures sans pour autant 
toujours éviter le rebond. La frappe est cependant agréable. La disposition des lettres est al- 


phabétique (comme sur la 41) ce qui est à mon avis la meilleure disposition pour un clavier 
vertical. 

L'affichage occupe la moitié inférieure du tiers restant de la partie droite, il est 
assez petit par rapport aux normes japonaises, plus proche de la CASIO 4909 que de la 7900. On 
se prend à regretter qu'il n'occupe pas toute la place disponible, mais ce regret n'est sans 
doute pas justifié à l'utilisation. L'affichage est légèrement incliné vers l'avant et l'orien- 
tation des cristaux liquides est très facilement réglée en pressant la touche ON et le signe + 
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[ou -, opération fréquemment nécessaire. Sa lisibilité est bonne, même en lumière faible. 

Le cerveau se situe principalement sous l'affichage, les piles (3, au format de la 41, 
durée annoncée 1 an) occupant la partie supérieure. Cet ensemble affichage-piles est beaucoup 
plus épais que le clavier, il y a donc un creux en vis à vis, sur la "porte", sans élément 
utile. Cet espace a très judicieusement été utilisé pour y placer un aide mémoire indiquant les 
différents types d'objets que l'on peut placer sur la pile. J'en ai compté 10 et 11 y en a au 
moins un onzième qui n'est pas cité (system object). 

Donc un ensemble de haut niveau. Cependant tout cela est livré sans étui et, même si 
le plastique est solide, je répugne à trainer dans ma poche un outil de ce prix aussi peu proté- 
dé des éclaboussures ou de la poussière. J'ai donc découpé du cuir marron dans un vieux blouson 
et j'en ai fait une “chaussette” du genre de celles de la série 19, dommage que HP ai jugé bon 
de faire cette économie de bouts de chandelles (seuls la HP-65 avec un magnifique étui en agneau 
et le HP-75 avec sa mallette en cuir ont eu un emballage à ieur hauteur). 

Les deux couvercles forment des coquilles enveloppantes dans lesquelles les claviers 
et l'écran sont clipsés et collés, 1l n'est donc pas possible sans risque d'ouvrir la machine 
dont la réparation ne semble pas envisagée. On connaït la disposition interne car un modèle en 
plexiglas a été exposé récemment. 


J'ai parlé de menus, d'objets et de pile. Ces trois termes déterminent tout ce qu'il y 
a de révolutionnaire dans cette calculatrice. 

Les menus sont à la base du fonctionnement de la machine. Le principe est bien connu, 
des pavés présentent des fonctions en bas de l'écran et ces fonctions sont accessibles en pres- 
sant la touche située immédiatement au dessous du pavé. J'ai compté 21 menus. 4 sont accessibles 
directement (sans SHIFT, ce sont le menu curseur, TRIG, SOLV et USER), tous les autres nécessi- 
tent une pression préalable de la touche bordeau SHIFT. 

Ces menus ne sont pas arborescents, sauf exception ils n'ont qu'un niveau. Par contre 
les fonctions sont très intelligemment regroupées et une même fonction peut se retrouver dans 
plusieurs menus chaque fois que c'est nécessaire. Il y a 5 fonctions à l'écran en même temps, et 
une touche NEXT (et son inverse PREV) pour feuilleter le menu, les fonctions sont donc accessi- 
bles en 3 ou 4 pressions de touche, souvent moins. Il est aussi possible de les taper à l'aide 
du clavier alphabétique. 

Toutes les objets créés et nommés par l'utilisateur sont regroupés dans le menu USER, 
le dernier objet créé étant le premier dans le menu. Nous verrons que cette disposition n'est 
pas sans inconvénient quand les objets créés dépassent la dizaine, ce qui est fréquent vu le 
style de programmation nécessité par la machine. Je ne vois pas trop comment surmonter cet 
inconvénient, sinon en multipliant les menus utilisateur et en laissant l'utilisateur choisir 
son menu (il y a 3 emplacements ‘“shiftés" inutilisés qui pourraient servir à cet usage). Il est 
cependant possible de réorganiser son menu et, par exemple, de ramener en tête du menu USER les 
commandes nécessaires à un moment donné de l'utilisation d'un programme. 





Les objets sont l'aspect "LISP" du langage disponible. Ce langage porte la notion de 
“yariable" au plus haut degré possible, puisque l'on peut mettre dans une variable non seulement 
un nombre (réel ou entier binaire) mais également un nombre complexe, une chaîne de caractères, 
un vecteur (matrice colonne), une matrice, une liste, un nom, une expression algébrique ou même 
un programme, voire tout autre chose, baptisé objet système. Tous ces objets peuvent être mani- 
pulés et beaucoup des fonctions s'appliquent indifféremment à n'importe quel objet. La fonction 
la plus versatile est le + qui peut être appliqué à presque n'importe quelle combinaison 
d'objet. Cependant ce LISP souffre de quelques limitations par rapport à ses grands frères, en 
particulier la précision des résultats numériques est celle du HP-71 (12 chiffres + 3 pour 
l'exposant) et non pas la précision illimitée du LISP ou du LOGO, les listes existent mais pas 
les intervalles, encore moins les intervalles à limites infinies. 


La pile est celle du FORTH. Tout un chacun sait que le LISP use et abuse des parenthè- 


ses qui alourdissent l'écriture. Le RPL de la HP-28 a annexé la pile FORTH, de hauteur 
illimitée, dont les 3 ou 4 premiers niveaux sont visibles à l'affichage. Mais en FORTH la pile 
ne contient que des nombres de 16 bits (20 sur le HP-71) qui, à vrai dire, sont souvent des 
adresses. La pile RPL, je gage, ne contient guère que des adresses, mais celles-ci sont invisi- 
bles à l'utilisateur qui ne voit que l'objet situé à cette adresse. Vue de l'utilisateur nous 
avons une pile dont chaque niveau contient un objet tel que décrit ci-dessus. Les avantages sont 
nombreux, en particulier la facilité de manipulation, mais les inconvénients -du point de vue du 
spécialiste- sont également nombreux car la géographie du système est cachée. 


La manipulation de ces objets à l'affichage est très élaborée et en général 
“l'interface utilisateur" très soigné. Pour dire bref, la machine est très agréable à utiliser. 
Par exemple elle utilise par défaut un mode multiligne qui permet de voir à l'affichage un pro- 
gramme sur 4 lignes, une matrice sous sa forme normale rangs-colonnes, etc..., mais dès que 
l'objet passe au niveau 2 (et sur option également au niveau 1) il est présenté en mode 
monoligne, des points de suspension (...) signalant que tout n'est pas affiché. Cet affichage 
est cependant assez lent cependant que l'exécution des commandes et des programmes est d'une ra- 
pidité satisfaisante 


ls 
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Des BOGUES. Je suis assez irrité par la présence constante de bogues dans le matériel 
HP. Certes il y en a aussi ailleurs, mais me semble-t-il pas d'aussi franches et désagréables 
(encore qu'à ce point de vue le dictionnaire de Wordstar 2000 soit assez bien pourvu). Il semble 


que ces bogues soient la rançon des performances extrêmes du logiciel qui le rendent très com- 
plexe et Sensible. Cependant j'ai été moi-même victime de deux bogues franchement désagréables 


et ce dès les premières lignes de programme. 


Première bogue : OVER. Alors que j'écrivais mon premier programme (solution d'équation par 
dichotomie) j'ai voulu entrer deux instructions OVER OVER vers la fin (le programme faisant une 
centaine d'octets). Lors d'une correction j'ai constaté que le VE était remplacé par des carac- 
tères curieux (OVER OVER donnait O.6R O.éR), que je n'ai pu corriger, l'entrée des caractères 
corrects n'entraînant que l'apparition de nouveaux caractères curieux comme O.mR O.mR que j'ai 
d'ailleurs pu imprimer. En désespoir de cause j'ai dû raccourcir le programme et j'ai finalement 
pu corriger le défaut. Je n'ai pas d'explication au phénomène, sinon qu'un bit devait se perdre 
dans un code. Il faut dire que sur la HP-28, contrairement à toutes les autres machines HP, la 
longueur de la ligne de saisie n'est pas limitée à 96 caractères, d'ailleurs les programmes mul- 
tilignes ne sont pas possibles, à moins de donner un nom à chaque ligne comme nous le verrons 
plus tard 

Je viens de faire un essai, pendant que j'écrivais cet article. Le problème est 
sérieux. D'une part alors même qu'il y avait au départ 840 octets libres et que je ne pense pas 
les avoirs utilisés, j'ai eu le message “low memory" puis (a mesure que le buffer de clavier se 
vidait) "“insufficient memory" et la perte de toute la ligne entrée ! En fait il semble que la 
HP-28 calcule en permanence la place dont elle va avoir besoin pour command, LAST et UNDO, avant 
même qu'on lui en demande l'utilisation. Des essais rapides semblent montrer que des caractères 
sont perturbés (je viens d'avoir le problème dans une chaîne de caractères, mais je ne peux pas 
reproduire le phénomène) quand la mémoire approche du minimum. dJ'expérimente en même temps que 
j'écris et le résultat est curieux. J'ai rentré une chaîne de caractères formée essentiellement 
de OVER (une cinquantaine de fois). Quand je l'ai mise en mémoire (avec ENTER), les OVER se sont 
transformés en O-fR (0-mR à l'affichage). Un essai de correction avec EDIT est refusé avec in- 
sufficient memory alors que MEM me donne 721 octets libres et que les sauvegardes sont 
inactivées. Affaire à suivre. 











































L'autre bogue est plus subtile mais tout aussi désagréable. Le RPL accepte des varia- 
blès globales et des variables locales à une procédure. En principe les variables locales sont 
supprimées à la fin de la procédure. Mais quand la procédure est interrompue, même définitive- 
ment par l'utilisation de KILL, il semble que les variables locales subsistent encore par 
moment. Au cours de l'édition d'un programme, je n'ai pu transformer des variables locales en 
variables globales sans rencontrer le message “undefined local variable". J'ai maintenant loca- 
lisé le problème et trouvé un moyen de le surmonter, voilà : 

Faites les opérations suivantes pour cerner le problème (et voir s'il existe aussi sur 
votre machine) : 


Entrer successivement 
« ESSAI 


faites ENTER puis 
ES1 et faites STO, ce qui revient à créer un programme ES1 contenant la variable ESSAI. Ensuite 
tapez 
&« 1 -> ESSAI « ESSAI ESl et faites ENTER, ES STO pour créer un programme qui place 1 dans la va- 
riable locale ESSAI à l'aide de la fonction ->, place dans la pile la valeur de ESSAI pour con- 
trôle puis exécute ES1l qui, lui, doit également placer sur la pile la valeur de ESSAI. 

Si vous exécutez ES (menu USER, pressez ES), vous verrez 


1 
"ESSAI" 


Vous verrez par la même occasion que la variable ESSAI n'apparait pas au menu. On voit 
donc qu'elle est bien traitée comme une variable locale (n'apparait pas au menu) mais qu'elle 
n'est pas transmise au sous programme ESl, contrairement aux indications du manuel, puisque son 
nom est mis dans la pile comme variable symbolique. 

Modifiez ES1 ('ES1 VISIT) en « HALT ESSAI », exécutez à nouveau ES et exécutez le pro- 
gramme pas à pas (avec SST). Vous constatez bien que la première exécution de ESSAI (dans ES) 
donne 1 et que la deuxième (dans ES1) donne "ESSAI". 

Relancez ES, puis, au lieu d'exécuter le programme pas à pas, éditez ES1 pour en enle- 
ver le HALT. Vérifiez que, pendant cette opération le voyant O qui indique qu'un programme est 
suspendu apparait bien à l'affichage. 

Terminez le programme en cours (par SST ou CONT), exécutez une nouvelle fois ES, cette 
fois vous obtenez 


1 
1 


Je déduis de cet exemple (et d'autres) que chaque programme est précompilé et qu'un 
statut est donné aux variables en fonction de l'environnement en cours. Un sous programme ne re- 
connait des variables locales que si l'environnement du programme principal est actif. Notons au 
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passage que le programme exécuté est une copie du programme et non le programme lui-même et 
qu'il est possible pendant une HALTe d'effacer un programme et d'en continuer l'exécution (!). 
Tout ceci rend l'usage des variables locales peu commode. J'espère qu'une solution sera trouvées 
plus commode que celle que je viens de décrire car chaque modification des sous programmes faite 
en dehors de l'environnement du programme principal fait disparaître le statut des variables 
locales. 


Wlodek Mier-jedrzejowicz signale également un problème avec le tampon de clavier qui 
n'est peut-être pas sans rapport avec ce qui est rapporté ci-dessus. Je viens de faire quelques 
essais et il apparait que le tampon de clavier est bien de 14 ou 15 pressions de touches. Pour 
le vérifier j'ai fait 15 WAIT et j'ai pressé "ABCDEFGHIJKLMNOPORST... A la fin de la période 
d'attente j'ai obtenu à l'affichage les lettres de À à M et rien après le M. Par contre en en- 
trée simple (sans WAIT) je n'ai pas réussi à mettre la machine en défaut. La procédure est 
simple, il suffit de placer un “ puis de faire glisser le doigt sur les touches, comme sur un 
piano. Je n'ai relevé aucune perte de caractère. IL semble donc qu'il y a non seulement un tam- 
pon de clavier, peut-être peu mis à contribution vue la vélocité de la machine, mais également 
un tampon D'AFFICHAGE car l'écran, lui, est nettement plus lent. C'est quand ce tampon est plein 
qu'il déborde (?) avec des conséquences catastrophiques car il écrase une bonne partie du conte- 
nu de la mémoire, sans souci de savoir ce qu'il y a dedans. Au cours des essais j'ai perdu une 
bonne partie de mes programmes (la machine s'est arrêté avec plus de 1590 octets libres !) sans 
pour autant faire de memory lost. Ce problème est particulièrement aigu quand on pianote sur les 
touches de fonction car chaque pression de touche envoie à l'écran plusieurs caractères au lieu 
d'un seul pour les touches de caractères. 


J'ai informé de ces problèmes aussi bien WMJ que B. VWickes, vous serez informés des 
suites. 


Le calcul : 

Cette machine est d'abord une calculatrice puisqu'en l'absence de moyen de sauvegarder 
les programmes il n'est pas envisageable d'entrer des programmes un tant soit peu importants à 
moins d'en avoir un besoin permanent. La taille mémoire est dés lors suffisante pour le calcul 
matriciel ou la résolution d'équations. Je n'insisterait pas sur le premier qui n'est pas de ma 
compétence mais il est utile ici de signaler que les moyens d'édition des objets -c'est à dire 
leur contrôle et leur modification- sont nombreux et très performants. Si vous avez entré en mé- 
moire un objet, matrice mais aussi expression ou programme, vous avez plusieurs moyens de le 
vérifier. 

Vous pouvez l'appeler dans la pile, le moyen le plus simple étant de mettre son nom 
dans la pile précédé d'une apostrophe (') et d'effectuer un RCL. La HP-28 effectue une copie de 
l'objet dans la pile au premier niveau. Vous pouvez alors utiliser la fonction EDIT qui ramène 
le premier niveau de la pile dans la ligne de commande. C'est plus vite fait que dit, le seul 
inconvénient étant la place mémoire occupée, encore que la dépense m'ai parue moindre que 
prévue, la pile ayant un espace mémoire à elle et la ligne de commande étant logée je ne sais 
où. Ce procédé permet de faire des copies d'objets peu différents et de les conserver 
séparément. 

Les différents modes édition donnent accès à un éditeur plein écran sommaire mais com- 
plet avec déplacement dans les 4 directions d'un caractère ou d'une ligne, insertion, effacement 
d'un caractère ou du début ou de la fin de la ligne, avec remontée d'une ligne en cas d'efface- 
ment du caractère de fin de ligne. 

Le deuxième mode d'édition est le mode VISIT. Mettre le nom d'un objet dans la pile et 
exécuter VISIT permet de modifier l'objet en place, sans perte de place en mémoire, cependant il 
est possible à tout moment d'abandonner l'édition sans conserver les modifications, tant que la 
touche d'entrée n'a pas été pressée, ce qui confirme mon opinion qu'une zone mémoire système est 
réservée à l'édition. Les matrices, tant à l'édition qu'a l'affichage sont présentées dans leur 
ordre naturel rangs-colonnes, chaque rang au dessous du précédent, ce qui rend la correction 
très simple. L'entrée en mémoire est aussi simple, une matrice étant formée de vecteurs ligne 
sous la forme suivante : 

à l'entrée : [[ 4 2 5] [ 48 89 56 ]J[ 41 25 56 ]] 
à l'affichage après pression sur ENTER : 
LE CE E25 | 
[ 48 89 56 ] 
[ 41 25 56 ]] 

Ajoutons que la mémoire constante de la HP-28 n'est pas un vain mot et que l'extinc- 
tion de la calculatrice dans un mode spécial entraîne au rallumage la mise en place du même 
mode, y compris en cours d'entrée de données ce qui évite la perte des données entrées en cas 
d'extinction automatique comme cela se produit avec 71 où 75. 

Les séries statistiques ont un mode d'édition particulier. Nous sommes habitués sur 
les calculatrices usuelles à utiliser + pour entrer les valeurs et en cas d'erreur à taper la 
valeur erronée suivie de F-. Le I+ est bien présent et s'utilise comme d'habitude, mais admet 
les vecteurs en entrée pour autant de variables que vous voudrez, mais J- ne demande pas 
d'argument, au contraire I- ressort de la matrice statistique 1 à 1 les arguments que vous avez 
entrés. Vous pouvez alors les modifier et les introduire à nouveau en pressant simplement I+ au- 
tant de fois que nécessaire. Mais vous pouvez aussi rappeler la totalité de la matrice statisti- 
que avec RCLI, l'éditer ou simplement la relire et la stocker à nouveau avec STOI. Vous pouvez 
aussi VISITer SDAT, nom de la matrice statistique pour la modifier au besoin. 
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l'affichage automatique du nombre d'éléments (on peut le demander) ou le maintient en Y d'un 
nombre dont on a extrait le % (il faut faire ENTER avant de taper le %), par contre ENTER effec- 
tue bien une duplication du niveau 1 de la pile (les niveaux de la pile sont numérotés à 
l'affichage, le 1 étant le plus près de la sortie). Pour en revenir aux statistiques, vous pour 
vez obtenir le total, la moyenne, l'écart type, la variance, les maxi et mini, et la régression 
linéaire entre deux variables à choisir. 


| Par contre on ne bénéficie pas de petites gàâteries que nous faisait la HP-41, comme 


Un autre mode important est trouvé dans le menu ALGEBRA. La HP-28, grâce à son langage 
est apte à traiter les problèmes d'algèbre de façon symbolique, c'est à dire de faire du calcul 
littéral. Elle sait faire ainsi toute l'arithmétique, bien sur, mais aussi toutes les sortes de 
dérivées, y compris de nombres complexes sans pour autant que les matrices puissent avoir des 
éléments symboliques. Elle sait aussi intégrer les polynômes et, sachant faire la décomposition 
en série de Taylor, peut ainsi intégrer avec une remarquable précision toutes les intégrales 
indéfinies, toutes les fonctions étant intégrables numériquement entre deux limites. Tout ceci 
est déjà remarquable, mais s'y ajoute un mode FORM très curieux. Je ne sais pas si cela sert ré- 
ellement à quelque chose, et je crois que Bill (Wickes) ne le sait pas trop non plus, mais c'est 
beau ! Il s'agit d'un éditeur d'expressions algébriques. Dans ce mode vous pouvez appliquer à 
une expression algébrique (ou à une équation, le signe égal étant quand il le faut pris à équi- 
valence avec le signe -). Le menu algèbre permet déjà de développer les produits et puissances 
(EXPAN) et dans une moindre mesure de faire des simplifications par mise en facteurs (COLCT). Le 
mode FORM permet de se déplacer dans l'expression en se plaçant sur un opérateur ou une fonction 
et en lui appliquant la distributivité, la commutativité, l'associativité, la mise en facteurs 
ainsi que toutes les opérations nulles (double changement de signe, multiplication ou division 
par 1) et tout ceci à droite ou à gauche et le menu qui apparait à l'écran ne permettant que les 
opérations légales dans le cas envisagé. Bien sur aucune opération anormale n'est autorisée, ce 
qui fait que l'expression reste égale à elle même. C'est un bon outil pour qui veut appliquer 
les mille astuces mathématiques comme la mise sous forme de Hôrner ou la recherche de forme 
canonique, sous réserve de bien comprendre à quoi correspondent les opérations faites. C'est 
d'ailleurs un outil pédagogique de première qualité pour apprendre ces règles. Utilité pratique, 
? 








Par contre le mode dont l'utilité n'est pas à démontrer est le mode SOLVE, d'usage si 
évident qu'il est un des rares accessible sans la touche SHIFT. Et dans ce menu un mode SOLVR 
particulièrement commode pour calculer une équation et ses racines, avec une vitesse de travail 
et une précision digne d'éloges. Ainsi à la fin de cette recherche la machine vous indique si la 
racine trouvée est exacte, approchée ou si vous êtes en présence d'un extremum. Si mes souvenirs 
sont bons, HP utilise pour ces calculs un algorithme qui n'a pas dû beaucoup changer depuis la 
HP-15 et le module math du 71 qui est basé sur une méthode de Newton améliorée par tout un tas 
d'astuces de mathématiciens décrites en détails dans le manuel de mathématiques de haut niveau 
de la HP-15, manuel certainement encore valable pour la 28 et que je recommande vivement bien 
que sa version française soit un peu chère. 











Reste à envisager la programmation de cette bête. Je dois dire que depuis quelques 
jours que je m'y exerce j'y a rencontré quelques embûches bien intimidantes. Un manuel de pro- 
grammation serait bien venu, la programmation n'étant aucunement envisagée dans le manuel d'uti- 
lisation et n'étant abordée que sommairement dans le manuel de référence. Ce n'est pas que ces 
manuels soient mauvais, tout au contraire j'y ai trouvé un esprit et un humour, voire un soucis 
de l'utilisateur rare, mais quand à la programmation, bien peu de choses. 

Le langage est en soi riche et en particulier riche des structures de contrôle qui 
font tant défaut au 71 (les 128 K de ROM y sont pour quelque chose). Mais les limitations 
“matérielles" sont telles qu'elles imposent un mode tout nouveau de programmation. 

La HP-41 est une machine ou un programme est constitué d'une unique colonne 
d'instructions, le HP-71 ou le HP-75 ont une structure classique de programmes multilignes, le 
FORTH utilise des écrans de 16 lignes de 64 caractères. 

La HP-28 utilise des programmes constitués de multiples fonctions d'une seule ligne 
chacune. Je n'ai pas encore bien situé le volume à donner à chaque fonction et le type d'imbri- 
cation à utiliser. La bogue que j'ai citée plus haut est si grave et gênante (j'en viens à me 
demander si elle n'est pas spécifique à ma machine, version 1BB, numéro 2651A07859) que j'ai dû 
segmenter mon programme à la va vite. 

J'avais rentré d'abord ce programme sur une seule ligne (comme je l'ai dit, la lon- 
gueur de la ligne d'entrée est illimitée) mais sur une erreur de syntaxe j'ai fait une fausse 
manoeuvre et je l'ai perdu. J'ai au moins appris que l'erreur de syntaxe ne place PAS la machine 
en mode édition (le curseur s'arrêétant sur l'instruction défectueuse), il faut donc venir en 
menu curseur pour corriger l'erreur (c'est facile, la touche en question étant immédiatement 
sous le doigt, mais n'est pas naturel). J'ai aussi constaté et vérifié que si l'erreur de syn- 
taxe est due au manque d'un terme (structure incomplète, par exemple) le curseur se place sim- 
plement à la fin du programme en cours. 11 est donc simple de tester la validité du programme en 
pressant ENTER toutes les quelques instructions. 

Mais il faut surtout créer des procédures courtes. Pour l'instant j'écris mon program- 
me sur papier comme un programme FORTH, c'est à dire en essayant de grouper sur la même ligne 
des instructions ayant un sens commun. Il n'y a plus ensuite qu'à donner un nom à chaque ligne. 
Le problème est que cette façon de faire encombre le menu USER du nom de toutes les procédures, 
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alors même que ce nom ne sert qu'à la mise au point. Je n'ai pas (encore) trouvé de moyen de 


faire disparaitre ce nom du menu. . 
Pour la même raison il est nécessaire d'utiliser au maxzinum les variables locales et 
la pile, ni les unes ni l'autre n'encombrant le menu. De fait cet usage est s1 commode qu'il se- 
rait regrettable de s'en passer. La mise au point des programmes est également d'une grande 
simplicité. D'une part les procédures peuvent être testées séparément, ensuite un mode pas à pas 
très simple et très efficace existe. Il suffit de placer un HALT là ou vous voulez commencer 
l'exécution pas à pas. À chaque pas l'instruction exécutée est affichée en haut de l'écran (en 
vidéo inverse). La pile étant alors visible, si elle est utilisée à plein le fonctionnement du 
programme est évident. Les procédures ne sont pas exécutées pas à pas, mais bien comme une fonc- 
tion native, ce qui permet de passer rapidement. Il suffit d'ajouter un HALT dans la procédure 
si on veut la suivre elle aussi pas à pas. L'ensemble est remarquable d'efficacité, mais assez 
gourmant en place mémoire, encore que, si j'ai eu souvent le message “insufficient memory" j'en 
impute la présence a la bogue, le programme étant court pour la mémoire présente. Il y aura sur- 
ement beaucoup à gagner à participer à un club d'utilisateurs si on veut utiliser cette machine, 
à moins que paraisse un "HP-28 facile', qui sait ? 


Je suis loin d'avoir envisagé tous les aspects de cette machine, en particulier 3e 
n'ai rien dit du mode graphique, aide précieuse surtout pour la résolution d'équations, mais 
j'ai essayé de ne pas faire double emploi avec les articles précités. 


Imprimante : 

Disons quelques mots de l'imprimante. Celle-ci, que je considère comme indispensable, 
étant un des seuls moyens de garder une trace des programmes et opérations n'a guère comme seul 
avantage que son prix, pour une fois raisonnable. En effet la liaison par infrarouge est extrêè- 
mement malcommode, étant très susceptible sur l'orientation de la machine et sur les obstacles, 
en particulier il est rigoureusement impossible d'utiliser l'imprimante sur les genoux ou à 
proximité de la calculatrice, si ce n'est à 10 cm en arrière et pas ailleurs. L'impression est 
noire (ce qui est bien) mais les caractères petits (plus que le matériel HP-41) et il n'y a pas 
d'espacement entre les lignes, ce qui est certes mieux pour le tracé graphique, mais pas pour le 
texte peu lisible et difficile à reproduire ici. 

Cette imprimante a aussi le gros défaut d'être alimentée sur piles qu'il faut changer 
tous les deux jours si, comme moi, vous oubliez de l'éteindre, aucun voyant ne venant vous 
alerter. Il y a bien une alimentation secteur bon marche (à peine plus de 100 F), mais elle ne 
suffit pas seule aux à coups, il faut quand même des piles. Je vais sans doute y rajouter une 
diode, mais il faudrait aussi une fibre optique (au moins en option) que je ne sais trop comment 
installer (celle d'un clavier d'apricot ferait bien l'affaire). 


Je vais arrêter ici, il faut bien en laisser pour la suite. 


(dernière minute. pa4€ 62) 
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SUR LE MARCHE 


FORTH 


Je vous ai déja parlé de ce forth développé en Belgique. Je vous en 
reparle aujourd'hui car je viens de recevoir la dernière version avec des mo- 
difications importantes. Ce FORTH est maintenant au standard 83 (et il semble 
bien qu'il n'y aura pas de sitôt un nouveau standard). Il est proposé au prix 
de 3600 FB ($90) pour MSDOS aux particuliers et 6800FB ($160) aux profession- 
nels avec droit de libre copie du Run-time. Ajoutez 200 FB ($5) de frais de 
port et prévoyez que vous n'aurez sans doute pas de douane à payer, ce genre 
de chose voyageant en lettre. 

Disons tout de suite un mot sur un sujet d'importance. Il existe (et 
je peux vous en faire une copie moyennant 50FF pour la disquette et le port) 
une version ‘libre copie' du standard FORTH 83, écrite par Laxen et Perry, 
alors, pourquoi en acheter une, même si comme COMFORTH elle est bon marché 
(environ 500F) ? 

La raison est relativement simple à comprendre. La version Laxen et 
Perry (baptisée F83, ce qui la fait souvent confondre avec le standard)est une 
version très complète mais qui ne contient pas, sauf erreur de ma part, l'é- 
quivallent du module COMGEN de COMFORTH. Elle est fournie sur une disquette 
ordinaire, mais avec les fichiers sources sous forme comprimée et il doit bien 
y en avoir pour 600 ou 799 K de texte qui est la seule documentation. Sachant, 
de plus que le texte source est un texte métacompilé (qui peut se régénérer 
seul) il est particulièrement difficile à un débutant de s'y retrouver. Qui 
plus est, de très nombreux mots sont vectorisés et la gestion des vocabulaires 
est “up to date" avec ONLY et ALSO. Enfin la seule façon d'en tirer tout le 
suc est d'acquérir aux USA un manuel en anglais (inside F83, j'ai oublié 
l'auteur) qui coûte environ $49 avec les frais de transport. C'est certaine- 
ment un bel outil, mais il faut le mériter ... 

COMFORTH, à l'opposé, comme ses concurrents professionnels (mais 
plus chers) est assuré d'un certain suivi de la part de l'auteur, d'autant que 
celui-ci étant belge est à portée de téléphone. Le manuel est en anglais (la 
clientèle étant surtout anglo-saxonne), mais si quelqu'un la traduit elle sera 
sûrement diffusée par l'auteur (et les ouvrages en français sont nombreux) et 
en cas de problème un mot à l'auteur peut débloquer la situation. 

COMFORTH, pour autant que l'on puisse en juger sans l'avoir utilisé 
réellement est une version professionnelle sérieuse. Elle offre l'avantage 
d'être disponible pour IBM, Atari ST, Apple dos, Commodore 64 et 128, Sinclair 
QL et CP/M 80 ou 86 Ecrire à DIALOGIC A. Pirard 5 Piretfontaine B-4952 Dolem- 
breux (Belgique, une fois !). 

Le manuel est maintenant présenté correctement sous forme reliée (en 
anglais, donc). Il est au format FORTH 83 mais contient un jeu d'instructions 
FORTH 79 et FIG-FORTH pour ceux qui y tiennent. Ce FORTH peut gérer tous les 
types de fichiers séquenciels ou à accès direct. Le code peut se trouver dans 
des fichiers texte standard (sous MSDOS) et donc édité avec l'éditeur incorpo- 
ré ou avec votre traitement de texte favori. L'éditeur incorporé peut permet- 
tre le lancement immédiat de la compilation avec retour dans le texte en cas 
d'erreur. 


































Le DOS est accessible directement à partir du FORTH (DIR,...). 

Le module COMGEN est un générateur d'applications qui, à partir d'un 
programme FORTH en parfait état de marche vous donne un programme .COM prêt à 
l'usage et débarrassé de tout ce qui n'est pas strictement indispensable, et 
donc plus court et plus rapide. Ces programmes peuvent être vendus ou 
diffusés. 

Il est possible de placer des points d'arrêt pour mettre au point un 
programme, de créer des overlays, virgule flottante avec ou sans coprocesseur, 
chainage de modules d'application... 

Je n'en dirai pas plus, pour le prix vous pouvez l'essayer. 


C cjapre Ain du peudeun eHcen cyete) 
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Caractéristiques de Comforth 


Le Forth est un langage de programmation qui offre les 
avantages tant des langages interprétés que ceux des langages 
compilés. ses possibilités interactives en font un outil 
extraordinaire pour expérimenter les problèmes les plus variés et 
programmer très rapidement leurs solutions. Son code compilé lui 
confère une très grande vitesse d'exécution. C'est un langage 
éminemment structuré. 


Les systèmes Forth courants sont cependant relativement 
élémentaires. Ils ne fournissent pas la possibilité d'accéder aux 
fichiers du système d'exploitation sous lequel ils fonctionnent. 
Ils ne peuvent que lire et écrire des blocs de 1024 octets sur un 
disque non structuré ou, au mieux, sur un fichier géré en accès 
direct. Ils ne permettent pas de créer des modules exécutables, 
d'effectuer le chaînage d'un module à l'autre etc... IL leur 
manque des possibilités essentielles de gestion des reprises 
d'erreur, de mémorisation de variables locales, de traîtement de 
chaînes de caractères etc.. Ces restrictions simplifient les 
problèmes de portabilité, mais ne rendent pas le Forth très utile 
dans le cadre des systémes de gestion traditionnels. 


Comforth est un système Forth de développement conçu et 
réalisé de manière professionnelle pour utiliser les possibilités 
impressionnantes de mise au point de ce langage de manière à 
pouvoir écrire des applications semblables à celles que l'on 
réalise avec d'autres langages. Il exploite de manière naturelle 
et simple les possibilités de gestion du systène hôte en 
utilisant des primitives d'accès aux fichiers. Ces primitives 
sont définies de manière à être utilisées de manière identique, 
quel que soit le système d'exploitation. Il rend possible la 
création de modules exécutables de taille minime utilisables 
directement à partir du système d'exploitation. TX est 
particulièrement attentif à la convivialité et à la facilité 
d'emploi des outils de mise au point. 


Comforth a été utilisé avec succès pour des applications des 


domaines économique, scientifique et industriel, telles que 
comptabilité, émulation de terminal IBM 3270 et transfert sûr de 
données, acquisition et traîtement de données botaniques, 


thermodynamiques et géologiques (Comforth a trouvé de l'or!}, 
contrôle de programmateur d'Eprom, calcul de chemins critiques, 
détermination de la composition d'engrais sur microordinateur. 


En résumé, le but de Comforth est d'éliminer bon nombre 
d'inconvénients des systèmes Forth traditionnels et de fournir un 
environnement de programmation (osons le dire) comfortable 


semblable à, par exemple, un Turbo-Pascal(TM), tout en profitant 
des avantages inhérents au langage Forth. 


Note au débutant en Forth: le vocable "mot" utilisé par la 
suite correspond à ce qui est appelé primitive ou fonction dans 
d'autres langages. Les mots Forth composent une phrase destinée à 
être exécutée ou à définir un nouveau mot. 


Descrption 
— Des versions de Comforth existent pour les systèmes suivants: 


— MSDOS (version 2.0 ou suivantes, dont PCDOS et compatibles) 
— CP/M 80 (version 2.0 ou suivantes) 

— CP/M 86 

— Commodore 64 

— Commodore 128 (mode 64, mode 128 ou CP/M) 

— Sinclair/Timex QL 

— Atari ST 

— Apple-Dos sur Apple II 


— Standard Forth-83. Fichiers d'adaptation didactique aux 
standards Forth-79 et Fig-Forth. Bien sûr, assembleurs et nombres 
doubles. De très nombreuses extensions telles que CASE, ?LEAVE, 
?2D0, .S, DUMP, WITHIN, ROTATE et similaires... 
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— Mots d'interface pour l'accès séquentiel ou direct aux fichiers 
du système hôte, de manière simple et indépendante du système 
d'exploitation (FILE OPEN CLOSE LOOK GET PUT READ WRITE READLINE 
POINT NOTE INRECORD INFILE INDATA SKIPEOR PUTEOR PUTEOF MUTEIOER 
IOER DELETE RENAME...). Support des chemins MSDOS. 


— Le code source peut être mémorisé dans les enregistrements de 
longueur variable des fichiers séquentiels ASCII et interprétés à 
partir de ceux-ci. Ceci élimine le gaspillage de l'espace disque, 
les problèmes de mise à jour et de documentation connus avec les 
blocs. 


- Editeur pratique et complet pour mettre à jour ces fichiers 
source à partir du Forth lui-même. Il utilise des fonctions 
générales de gestion pleine page de l'écran qui peuvent très 
facilement être adaptées à n'importe quel système (GOTOXY, CLS, 
RUBLINE, HILIGHT, LOLIGHT). Les touches spéciales d'un clavier 
peuvent facilement être utilisées pour les fonctions d'édition. 
En fin d'édition, on peut déclencher l'interprétation du nouveau 
texte et, en cas d'erreur, reprendre la mise à jour avec le 
curseur positionné à l'endroit de l'erreur. 


— Mots de commande pour manipuler les fichiers du système à 
partir du Forth (DIR ERA DEL REN FTYPE FCOPY FPRINT DOS etc...). 


— La gestion des blocs utilise la technique LRU. Les blocs sont 
gérés sur des fichiers système à accès direct. Editeur de lignes. 


— COMGEN: génération simple de modules exécutables compacts. La 
seule commande: COMGEN source-file main-word module-file map-file 
sélectionne automatiquement les mots strictement nécessaires à 
une application, en supprime l'en-tête, les reloge et en fait un 
module qui peut être exécuté à partir du système d'exploitation. 
Même la partie compilation d'un mot de définition est exclue. 
Cependant, un dictionnaire de mots d'application peut être isolé 
et les en-tête de ses mots conservées à des fins de recherches de 
mots clé. 


— il est possible de décompiler très clairement l'entièreté des 
mots du noyau jusqu'au niveau le plus bas. Contrairement à ce qui 
se passe avec d'autres systèmes, ceci permet son analyse, la 
compréhension de son comportement et, éventuellement, sa 
modification. 


— des points d'arrêt peuvent être installés. Ils permettent de 
suspendre l'exécution d'un mot à un endroit spécifié, d'y 
modifier la pile ou la mémoire et de reprendre l'exécution, 
éventuellement pas à pas avec affichage de la pile. 


— overlays relogeables pour accélérer le chargement d'utilitaires 
précompilés dans un système de développement. L'éditeur, les 
assembleurs, le décompilateur, le gestionnaire de points d'arrêt 
et le générateur de modules se trouvent dans des overlays. IL est 
facile d'en créer d'autres. 


- un fichier contient la source d'une arithmétique en virgule 
flottante entièrement en mots de haut niveau (lent). Il est conçu 
pour être indépendant de la représentation interne des nombres et 
servir de modèle à convertir pour utiliser l'interface d'un 
coprocesseur ou d'un logiciel en mémoire morte. 


— assembleur et virgule flottante (rapide!) pour le coprocesseur 
arithmétique 8087 pour les versions de la gamme 8086. 


— chaînage d'un module d'application à un autre. 


— mise à jour de la ligne de commande à l'aide des mêmes touches 
que pour l'éditeur. Rappel des commandes précédentes. 


— Autre exemple de convivialité: toutes les listes peuvent être 
suspendues à l'aide d'une touche quelconque et, à l'arrêt, 
interrompues par la touche C. 
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— Après avoir été modifié ou aggrandi, le système peut aisément 
être sauvé sous la forme d'un nouveau module. Bon nombre de user 
variables contiennent des valeurs de configuration (ex: tailles 
mémoire utilisées), et leurs valeurs initiales peuvent être 
facilement modifiées. 


— ONERROR protège une séquence de mots en lui associant une 
séquence de reprise d'erreur exécutée en cas d'ABORT. Un must 
pour des applications solides. A un point d'arrêt, par exemple, 
l'erreur produite par une commande erronée est reprise et l'état 
du programme testé n'est pas perdu. 


— TEMPORARY et HEADERLESS permettent d'économiser la place 
mémoire en chargeant temporairement l'assembleur et en supprimant 
les en-tête des mots dont les libellés sont devenus inutiles. 


— Les étiquettes d'assemblage (LABEL) peuvent être codées 
n'importe où, car elles génèrent des constantes temporaires. Des 
sous-programmes peuvent donc être créés avant le point d'entrée 
qui peut être redéfini par ENTRY:. 


— ONLY ALSO PREVIOUS gouvernent l'ordre de recherche dans les 
vocabulaires. Ceux-ci peuvent être, au choix, scellés où chaînés. 
Le vocabulaire CURRENT peut également faire partie de la 
recherche. Ceci permet le choix d'une structure de dictionnaire 
allant de celle du Fig-Forth à celle de Raxdale. 


— Possibilité de définir une paire de mots exécutés chaque fois 
que le système ou une application démarre ou se termine. Utile 
pour toutes sortes de fonctions telles que les initialisations 
matérielles (ex: imprimante) ou logicielles, par exemple dévier 
une interruption pour effectuer un redémarrage à chaud du Forth 


en cas de bouclage. Ce redémarrage est réalisé pour les systèmes 
non génériques et l'IBM PC. 


— Une pile d'aggrégats est intégrée au système pour permettre la 
mémorisation de données locales et économiser la mémoire. 


— Gestion de chaînes de caractères sur la pile d'aggrégats. 


— Les mots d'entrée/sortie sont redirigeables et le support 
d'imprimante modifiable. 


— plusieurs fichiers généraux et spécifiques à certains systèmes 
et contenant des exemples de programmation et des utilitaires 
(exemples d'assembleur, tri, nombres aléatoires, compilation 
conditionnelle, graphiques, son etc..). 








Documentation: 65 pages expliquant les particulatités de Comforth 
+ 60 pages de glossaire complet organisé par fonctions + 15 pages 
d'index alphabétique (en anglais). Les débutants consulteront une 
introduction au Forth-83. 


Formats disques: distribution sur deux simples faces d'une même 
disquette. Prière d'indiquer le type de machine, le système 
d'exploitation, le format de disquette et, cas improbable, si 
votre système est incapable de lire des disquettes simple face. 


MSDOS: format IBM PC. 
Atari ST: 3"1/2 (format comme MSDOS). 
Apple Dos: format propre. 
Commodore 64: format propre. 
Commodore 128: format propre. 
Sinclair QL: format propre (bande). 
CP/M 80 ou 86: 
8" simple densité format IBM 3740. 
ou un des formats 5"1/4 double densité suivants: 
IBM PC (CP/M 86) Zenith Z100 Kaypro II Epson QX-10 Osborne I 


Autres formats sur demande. 

Prix: Non commercial Commercial (*) 
MSDOS : 3600 FB (600 FF) 6800 FB (1100 FF) 
Atari ST: 3609 FB (600 FF) 6800 FB (1100 FF) 
Autres: 2409 FB (400 FF) 6800 FB (1100 FF) 


Frais d'envoi: Europe: 100 FB (15 FF) Autres: 500 FB ($12.5) 
Recommandé contre remboursement: ajouter 200 FB (30 FF). 


Commande et paiement au compte 240-06221903-46 de: 
DIALOGIC À. Pirard 
5, Piretfontaine 
B-4952 Dolembreux 
(Belgique) 
Tél: 041/688069 


Paiements anticipatifs par mandat postal ou Eurochèque. Aux 
autres chèques tirés sur des banques étrangères, ajouter $10 pour 
encaissement. 


(*) Seul le tarif commercial confère le droit de vendre des 


programmes réalisés avec COMGEN. Il assure pendant un an la 
réception de corrections, mises à jour et notes d'applications. 


( ESSAIS DE COMFORTH 1 AVR 87 JDD) 
TEST 1000 @ DO I . LOOP ; 
Le profremune à gi sue U po ? 
œnapl de 0 x 955 
MS-LUS version 
C:\COMFORTH 


C>F83NUC1 


COMforth83 5.1 Copyright DIALOGIC 1986 


COMGEN ESSAI.SCR TEST TEST.COM TEST.MAP Loading COMGEN.OVL 
COMforth83 5.1 Copyright DIALOGIC 1986 

Loading COMGEN.OVL Loading COMGEN2.OVL 

Building dictionnary map 

Building relocation map à : 

Selecting application words Executin de CN EEN 


Writing the module 
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Le pee TEsT. MAP (Extrait ) 


Root 0 : 376 492 

TEST 492 :; 92, 13 98 99 315 9% 112 

(COLD) 376 : 71 89 281 136 374 

WARM 374 : 64 58 87 39 133 109 283 238 56 203 50 14 197 119 95 253 258 59 237 


x 315: # 151 314 
D 


5 314 : 313 252 

D.R 313 : 116 178 155 311 310 146 308 312 117 126 141 257 255 
# 312 : 179 84 287 

<# 311 : 

#s 310 : 309 130 106 

# 309 : 51 246 143 122 307 
SIGN 308 : 121 

HOLD 307 : 166 137 

PAD 287 : 286 

HERE 286 : 65 

AP! 283 : 164 169 72 

DTOP 281 : 45 

(sn) 258 : 149 

SPACES 257 : 157 204 

TYPE 255 : 250 129 80 131 23 
CR 253 : 55 104 139 79 54 193 24 127 201 
SPACE 252 : 5 251 

EMIT 251 : 22 161 

PAUSE 250 : 249 

NOOP 249 

MU/MOD 246 : 118 128 
INITSTREAM 238 : 262 

SYSTEM 237 : 57 216 

MSDOS 216 : 

(?D0) 204 : 

PERFORM 203 : 

OFF 201 : 

B@ 197 : 

UMIN 193 : 189 

U> 189 : 

2DROP 179 : 

TUCK 178 : 

1-! 166 : 

1- 164 : 

1+! 161 : 

EVEN 160 : 

MAX 157 : 


DIR TEST.COM 


Le volume dans l'unité C: n'a pas de label 
Répertoire de C:\COMFORTH LL inPR TANT 


de 
TEST COM 1756 1/04/87 18:54 
1 Fichier(s) 11048960 octets disponibles 


MS-DOS Version 3.10 
C:\COMFORTH 
Ciexemple est pour le moins élémentaire, mais faites en autant en turbo pascal 
ou en Basic et notez l'encombrement mémoire ! 

Quand à la vitesse d'exécution, elle est surtout dans ce cas fonction de la 
carte vidéo. Ier du S Memk& [AT&g nr) 


Le volume dans l'unité C: n'a pas de label j ÿ 
Répertoire de C:\COMFORTH pichier FoATH a dapts’ x 4'10n 
D —— 


FORTH CcoM 16044 1/04/87 17:38 
1 Fichier(s) 11046912 octets disponibles 


MS-DOS Version 3.10 
C: \COMFORTH 
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PETITES ANNONCES 


EDITIONS DUO CAGIRE 
77 RUE DU CAGIRE 31100 TOULOUSE 
FRANCE TEL 61 A 4 O 3 06 
ENTRE, 7 


Dr. €. O © EE D À dd EE © NN 
SOLDES AVANT FERMETURE DEFINITIVE 


Le catalogue dont le résumé figure ci-dessous regroupe le solde des 
ouvrages précédemment disponible aux Editions du Cagire et au club PPC-T. 
Ces produits sont disponibles dans la limite des stocks et, au plus tard, 
jusqu'au 31 Décembre 1987. Remboursement assuré si le produit commandé est 
épuisé. Les prix indiqués tiennent compte d'une 
remise de 30 à 60% Sur le précédent Prix 
catalogue. Règlement à La commande à L'ordre 
des Editions du Cagire- Port et emballage, 
ÉSrFEAaTC 20F quel que soit ZLle montant de la 
commande - Vente directe par correspondance 
uniquement. 


Catalogue détaillé gratuit sur demande. 


EL20. Bilingue français / anglais. "IND41" par Robert Pulluart. 100 pages 
format 16 x 24 à l'italienne. Prix 2OF 

EL15. 109 programas para ordenadores personales Y calculadoras" Prix 
20 FE. 

(sans référence) overlay carton pour HP-41 prix les JL © > IL © 
EF 


(sans référence) pochettes A4 pour classer les programmes et leur documen- 
tation Prix les LEO 20: E 

(sans référence) classeurs spéciaux pour les pochettes ci-dessus prix 
pièce DO: Es 

P13. En anglais. PPC Southwest Conference (Janvier 83), 48 pages 21 x 29,7, 
Prix 2O© F:. 

P21. En anglais. Operating system du HP-75. 809 pages 21 x 29,7, prix 
200 F. 

P23. En anglais (et surtout en langage machine !)}. Liste source assembleur 
du FIG FORTH, prix chaque ) 2O EF. Préciser votre micro- 
processeur à la commande. Disponible pour : 6800, 6809, 8080, 9900, Apple 
TL: PDETXI, Z80: 

P26. En anglais. Actes de la conférence du 10ème anniversaire de PPC USA, 
Juillet 84. Prix 30 F. 

P27. En anglais. VASM du module extended I/0 (APRIL) du HP-75, prix 
30 EE: 

P28. En anglais. HP-41, spécifications matérielles. Prix 3©@ F. 
P31. En anglais. Dossier R. Nelson. 199 pages, prix 2©@ F. 

P34. En anglais. FIG Chapter News II. 80 pages, prix 2O© F'. 

P35. En anglais. Notice technique du lecteur de disquettes HP9114A. 6Q pa- 
ges au prix de 20 F. 

P37. En anglais. FIG Chapter news I. 140 pages, prix 4@ F.. 

P38. En anglais. Forth Dimensions Volume I (1978-1979). 92 pages, prix 
30 EE: 


P40. En anglais. Forth Dimensions Volume III (1980-1981). 200 pages, 
DELS SO FE: 

P41. En anglais. Forth Dimensions Volume IV (1981-1982). 230 pages, 
BEizx 60 F. 

P42. En anglais. Forth Dimensions Volume V (1982). Premiere partie, 110 
pages, prix 40 F. 

P44. En anglais. Forth dimensions Volume VI (1983-1984). 260 pages, 
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BELSS, JO. EE 

N8Al1. Les numéros 8 , 9, 10 et 11 de PPC-T, 64 pages chaque au format 15 x 
22, prix pièce 1 © EF. . 

Tous Jles numéros de MICRO—-REVUE, PELLE 
pièce ZOEF sont disponible tous les numéros de 1 à 15. 

(ref. ELl) "ENTER" par Jean-Daniel Dodin. 122 pages format 16 x 24, ISBN 2- 
86811-002-9. Prix LES ET 

(ref. EL2) "Au fond de la HP-41" par Jean-Daniel Dodin. 122 pages format 16 
X 24; ISBN 2-86811-001-0: Pris 7°O EE: 


(ref. EL3) “Het onderste uit de HP-41", door Jean-Daniel Dodin. ISBN 2- 
86811-009-6. Prix hors taxes SO EE: 
(non référencé) “Inside the HP-41" by Jean-Daniel Dodin. Prix hors 


taxes 70 F.. 
(ref. EL4) “Autour de la boucle" par Janick Taillandier. La boucle HP-IL, 


procédures, contrôleurs (HP-41 et HP-75), imprimantes. 165 pages format 16 
x 24, ISBN 2-86811-000-2. Prix 2O©@ FE. 
(ref. EL5) “La programmation synthétique de la HP-41", par W. C. Wickes 


traduction par Luc Mathieu. 98 pages format 16 x 24, ISBN 2-86811-004-5. 
PERS ZOO FE. 

(ref. EL6) "La programmation synthétique, c'est facile" par Keith Jarett, 
traduit de l'américain par Gilles Barret. 128 pages format 16 x 24. Vendu 
avec carte des codes HP-41 plastifiée en couleur. ISBN 2-86811-007-X. 
PES LOC FE: 

(ref. EL7) "Les fonctions d'extension, c'est facile" par Keith Jarett, tra- 
duit de l'américain par Mary-Denise Dodin. 187 pages format 16 x 24, ISBN 
2-86811-008-8. Prix 1@O EF. 

(ref. EL21) En français. "Le HP-71, c'est facile" par Joseph Horn, traduit 
de l'américain par Jean-Daniel Dodin. 190 pages format 16 x 24. Prix 

LOO FE. 

(ref. EL16) “Manuel du tailleur et polisseur de verres d'optique" par Lu- 
cien Dodin. ISBN 2-86811-003-7. Prix 1OO@ FE. 

(sans référence) carte des codes pour la HP-41 Prix 2O@OF 


Matériel d'occasion en état de marche 
(sauf éventuellement batterie à changer) 


Imprimante HP-IL 82162 1500F (sans chargeur), extension de ports SICAPE 
800F (donne 7 ports supplémentaires à votre HP-41), imprimante OKI 132 co- 
lonnes 2000F (interface série et parallèle), convertisseur HP-IL OKI (ou 


autre) 1000F, interface video HP/IL 32 colonnes/16 lignes 82163 neuve 
(jamais servi) 1500F, HP-75 avec module I/O et module 8K 4900F. Lecteur de 
cartes magnétiques pour HP-71 1000F, lecteur d'Eprom pour HP-41 avec nom- 
breux jeux d'EPROM 1000F, MLDL à réviser 500F, module finance pour HP-41 
(sans notice) 200F, module X-fonctions (sans notice) 500F, module démarage 
automatique/duplication de cassette 200F, module FORTH/translator HP-41 
pour HP-71 1000F 


Machine de traitement de texte professionnelle Olivetti ET351 5000F 


P, DAVID T 117 Tel: 69.48.19,7T( 
45 rue H, BARUSSE  91JITAC MEN) 
Vends: IMPAILAUTE 421434 Avec C rouleaux de panier 1400 F 
EXTENSION 8 PCATS ( Sicape ) GC F 





5 


Gerard Allier Le trident, A4, 34400 Lunel, tel 67 71 59 51 (T657) vends HP-A1CX avec batterie 
rechargeable, imprimante 82143 + 2 batteries + papier thermique + lecteur de cartes + 40 cartes. 
Matériel très peu servi. 


Laloux Guillaume 7 rue des vignes 57740 Longeville les St Avold (1766) tel 87 91 01 88 vonds im 
primante HP82143 très peu servie (batteries neuves, papier, manuel) + lecteur optique 83153 
avec manuel + programme de codes barre pour HP-82143 (note de l'éditeur: la 82143 ne peut édite 
que des codes barres sur 2cm de long et done très limités) 1 Livre #ur la HP 41, Le tout pou 
1900 F (valeur d'achat 4000 F). 





PPC-T No13 Mars-Avril 1987 Page 61 





HOCLET Michel ORSAY , le Vendredi 2 Janvier 1987 
3 , allée du bois de la cyprenne 

91408 ORSAY 

Tel. pers. 69.07,32.41 

Tel. prof. 69.08.59.86 


Suite à la vente de plusieurs des matériels proposés dans 
ma petite annonce parue dans MICRO REUUE numéro 15 , je 
souhaiterais modifier ma proposition de vente de la manière 
suivante pour votre prochain numéro 


— HP821804 Module extension fonctions (1982 ) 
— HP41-14001 Module statistiques C 1982 ) 
FF Lot d'environ 240 cartes magnétiques 


JEAN Texier 

NO Avenve Du Bo: 
LE Haven vu 
CARUVEEFOdU 

à ww 4 


Te, 
Cecuerncue 


LL mspvce VPEC. Rom 


À me DULE EENRo»m 


ComPrenr pres Live 


EX NSricet. 





EE ————_—_—_—__ 


HP-28 - SUITE 


Ayant communiqué mes remarques sur les bogues de la HP-28 à Bill Wickes, j'ai reçu la 
réponse suivante sur papier à en-tête de Hewlett-Packard Corvallis : 


7 Avril 1987 
Cher Jean-Daniel, 


Merci pour ta lettre du 26 Mars m'informant des problèmes que tu as rencontrés avec ta 
HP-28. Je pense que je peux prendre en compte deux des trois problèmes, mais le troisième m'a 
mystifié. Laisse moi traiter les problèmes dans l'ordre ou tu les à présentés. 





1) Je ne peux pas expliquer l'étrange modification de la commande OVER dans tes programmes sauf 
à supposer que tu as un mauvais ROM. Les programmes sont stockés sous forme de tokens (utilisant 
l'adresse ROM pour les commandes internes, comme en FORTH). Les lettres "OVER" ne sont pas stoc- 
kées avec le programme. Quand un programme est décompilé pour affichage ou correction, le décom- 
pilateur lit le nom de la commande dans une table en ROM. Nous avons vérifiés cette procédure 
après la réception de ta lettre et nous sommes convaincus qu'il n'y à aucun moyen pour qu'il y 
ai une substitution occasionnelle de caractères pour le VE de OVER à moins que le ROM lui-même 
ne retourne de mauvaises données quand il lit à l'emplacement de ces caractères. J'ai entré et 
décompilé personnellement des centaines de programmes sur ma HP-28 et n'ai jamais rencontré cet 
effet. As-tu essayé le self test de la HP-28 (pages 55-56 du manuel de référence)? Le self test 
teste la ROM à partir d'une somme de contrôle et affiche 8 FAIL si le ROM est mauvais. Bien sur, 
comme ton problème semble intermittent, il te faudra essayer le test de nombreuse fois pour voir 
un défaut. De toute façon, si le problème persiste, je te recommande de retourner la HP-28 pour 
réparation sous garantie. Si jamais tu peux découvrir une séquence qui permette de reproduire à 
volonté l'erreur, signale-le moi immédiatement. ! 
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J'ai bien sur essayé le self test dès que j'ai reçu la HP-28. 11 affiche OK NC TT tourne 4 


tuellement de façon continue et je vais le laisser quelques heures. J'ai rencontré La bogue con 
tinüment pendant plus d'une semaine quand la machine était neuve, depuis plus de problème 11 
s'agissait peut-être d'un problème d'électricité statique. J'ai eu depuis un memorÿ loxt  inex 
pliqué (memory lost affiché dès l'allumage). Si vous avez eu des problèmes comme le mien, h'hé 


sitez pas à me le dire par lettre ou téléphone. 


2) Le fonctionnement des variables locales tel que tu le décris est le fonctionnement normal tel 
qu'il était prévu, pas une bogue (tu peux le considérer comme un défaut, mais ce que tu constate 
est ce qui était prévu). Les variables locales sont conçues pour être utilisées uniquement dans 
la procédure où elles sont définies. Sinon le fonctionnement d'une procédure dépendrait de 1» 
procédure qui l'appelle ce qui rendrait certainement ia programmation structurée difficile. 51 
j'écris un programme qui utilise la variable globale À, Je ne m'attends certainement pas à ce 


qu'il donne un mauvais résultat si je l'appelle d'un autre programme qui se trouve utiliser une 
variable locale A. Du point de vue de la HP-28, quand vous entrez dans un programme avec le nom 
de variable A, comment peut-elle savoir si il faut la compiler comme variable globale ou 
locale ? 

C'est une simple question de philosophie. Le premier usage des variables locales est de simpli 


fier les manipulations de pile en vous permettant d'assigner des noms temporaires à des objets 
de la pile, pas de procurer un passage de paramètres entre programmes. Dans cet esprit 11 est 
approprié que les noms soient locaux au programme de définition. Cette propriété pause problème 
si vous avez un programme à variables locales que vous voulez diviser en deux sous-programmes ; 
en tel cas il faut soit a) renvoyer la valeur dans la pile pour le sous programme soit b) compi 
ler le sous programme dans un environnement HALTé contenant le nom local désiré. 





L'usage des variables locales est très commode car il évite d'encombrer le menu utilisateur. Le 
défaut est donc finalement plus un défaut du manuel que de la machine. 


3) Je crois que le problème que tu as rencontré dans les conditions de manque de mémoire détrui 
sant des variables préexistantes est dû à un défaut que nous avons découvert nous-même récemment 
(et qu'aucun client n'a signalé avant toi). Le problème se produit si on presse de façon répéti- 


tive la touche la plus à gauche dans le menu USER pour exécuter une variable qui contient un 
programme qui consume la mémoire pendant l'exécution. Si la HP-28 arrive à court de mémoire, 
elle entre dans le module programme de manque de mémoire ; Si ceci se produit avant que toutes 
les pressions de touche du tampon d'entrée soient utilisées, ces pressions seront interprétées 
comme des réponses YES qui provoque l'effacement de séquences d'objets, y compris éventuellement 
des variables utilisateur. Nous aurions dû inclure l'effacement du tampon d'entrée avant le dé- 
but du programme de manque de mémoire. La solution est d'utiliser avec prudence la touche de 
gauche dans le menu utilisateur. 


Il faut savoir que le programme interne de manque de mémoire propose à l'utilisateur d'effacer 
sélectivement la mémoire et ce de façon interactive, avec des réponses par oui ou par nom utili- 
sant pour oui la touche de gauche ... 


Je ne connais pas d'autre problème avec la calculatrice en ce qui concerne l'effacement acciden 
tel de variables (j'espère avoir interprété ta lettre correctement). À nouveau, si tu peux trou- 
ver une séquence répétable qui cause le problème, dis le moi. 


Nous reconnaissons tous que le plus sérieux problème de la HP-28 est le manque de mémoire. Suite 
à une combinaison de circonstances, 2K de RAM est tout ce que nous avons pu y incorporer. Per 
sonne dans l'équipe de développement n'aurait voulu aussi peu de mémoire. Comme la mémoire est 
partagée entre une variété de ressources -la pile, la pile de retour, la mémoire des variabl 
utilisateurs, les environnements temporaires, la ligne de commande, les arguments de LAST, les 


piles UNDO et command, il est difficile à l'utilisateur de prévoir quand il va se trouver À 
court de mémoire. Par exemple, quand on édite un programme, il peut y avoir 3 ou 4 copies de ce 
programme simultanément : l'original, une copie dans UNDO, la ligne de commande et la nouvelle 
copie en cours d'analyse. c'est pourquoi il faut travailler avec des programmes annez petits 
pour pouvoir éditer chacun d'entre eux sans manquer de mémoire. Le problème ent que le langage 
de la HP-28 est si puissant qu'il vous donne envie de développer de grands programmen exotiquen, 


mais la calculatrice n'a pas assez de mémoire pour ça. 


Encore merci pour ta lettre. Si tu as des problèmes pour t'exprimer en anglain, tu poux inclure 
également le texte français, je peux le faire traduire ici. 


Sincèrement 


William C. Wickes 
R&D Project Manager 
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ORGANISATION 
DE PPE-T 


Cette page sera publiée dans chaque numéro de PPC-T. Seules les indications 
répertoriées dans le dernier numéro du journal font foi. PPC-T étant une asso- 
ciation sans but lucratif, elle ne fait pas de bénéfice. Elle est administrée 


par des bénévoles et ses produits et services sont réservés à ses membres. 


ASSOCIATION PPC-T 
Association à buts non lucratifs (loi de 1901), PPC-T a suspendu l'inscrip- 
tion de nouveaux adhérents du ler Novembre 86 au 31 Aout 87. Si vous voulez nous 


rejoindre après cette date, envoyez-nous une enveloppe timbrée à votre adresse. 
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Président : Jean-Daniel Dodin (T1) 
Trésorier : Jean-François Sibille (T15) 
Secrétaire : Eric Sergent (T334) 


ADRESSER TOUT LE COURRIER À PPC-T/MICRO-REVUE 77 RUE DU CAGIRE 31100 TOULOUSE. 


TEL (A UTILISER AVEC MODERATION) 61 44 03 06 
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